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PROGRAM DESCRIPTION 



1. ABSTRACT 

IHXS PROGRAM CONTAINS A SERIES OF BASIC LOGIC TESTS 
THAT CHECK THE TA1 1 FOR PROPER OPERATION. 

2* REQUIREMENTS 

2.1 EQUIPMENT 

PDP~1 1 COMPUTER WITH OR WITHOUT HARDWARE SWITCH REGISTER 
WITH CONSOLE TELETYPE, AND A TA11 CASSETTE 

2.2 STORAGE 

THIS PROGRAM REQUIRES APPROX. 4K STORAGE* 

2 . 3 PRELIMINARY PROGRAMS 

MAIMDEC-11-DETAA 
MAINDEC-ll-DETAB 

3* LOADING PROCEDURE 

USE STANDARD PROCEDURE FOP LOADING . ABS TAPES 
OR A CASSETTE TAPE s 

4, STARTING PROCEDURE 

4.1 CONTROL SWITCH SETTINGS 
SEE 5.1, 

4.2 STARTING ADDRESSES 



200 


NORMAL STARTING ADDRESS 




204 


SELECT DRIVE(S) BEFORE STARTING TEST 


210 


SELECT DRIVE(S) AND ADDRESSES BEFORE STARTING TEST 


214 


SETUP FOR MANUAL LOOPING 




220 


WRITE FILE GAP FROM BOT TO EOT 




224 


WRITE CONTINOUS BLOCKS OF DATA 




2 30 


READ CONTINOUS BLOCKS OF DATA 




234 


WRITE FILE GAP AND A BLOCK OF DATA 




240 


READ SLOCK OF DATA AND INTO A FILE 


GAP 


244 


SPACE FWD FILE GAP FROM BOT TO EOT 




250 


BACK SPACE FILE GAPS 




500 


LOAD SWITCH REGISTER INTO THE TACS 




600 


WRITE SWITCH REGISTER ON TAPE FROM 


BOT TO EOT 


700 


READ FROM BOT TO EOT 





4,3 



PROGRAM & OPERATOR ACTION 



1 „ LOAD PROGRAM INTO MEMORY (SEE SECTION 3,) 

2. LOAD A WRITE ENABLED CASSETTE IN BOTH DRIVES 

3« REWIND BOTH DRIVES 

4. LOAD ADDRESS 200® 

5, SET SWITCHES (SEE SECTION 5*1) 
6* PRESS START • 

7, THE PROGRAM WILL TYPE INSTRUCTIONS ON THE TTY FOR 
THE OPERATOR TO FOLLOW. AFTER THE OPERATOR HAS 
PERFORMED THE REQUIRED OPERATION HE WILL PRESS 
"CARRIAGE RETURN H AND THE PROGRAM WILL CONTINUE , 

**# NOTE I IF USING THE SOFTWARE SWITCH REGISTER THE 

PROGRAM WILL TYPE "SWR=XXXXXX NEWs' 5 AFTER TYPING 
THE NAME OF THE PROGRAM . 
4,3*1 DRIVE SELECTION 

STARTING THE PROGRAM AT 200 WILL RESULT IN AUTOMATIC 
SELECTION OF DRIVES A 11 AND M B» TO BE TESTED 9 
NOTES IF LOAD MEDIUM Is CASSETTE WITH STANDARD VECTOR 
PROGRAM WILL RESPOND AS IF STARTED AT 210* 

STARTING THE PROGRAM AT 204 # 210, OR 214 ALLOWS THE OPERATOR 
TO SELECT THE DRIVE(S) TO BE TESTED „ 

THE PROGRAM WILL TYPE n DRI VE ( S ) ? n . 

EITHER OR BOTH DRIVES CAN BE SELECTED BY TYPING M A M AND/OR 
w B 11 FOLLOWED BY A CARRIAGE RETURN. 

4 9 3®t®l DRIVE SELECTION EXAMPLES 

DRIVE(S)? A,B 

DRXVE(S)? AB 
DRIVE(S)? B 9 A 

DRIVE(S)? B 



4,3.2 ADDRESS SELECTION 



STARTING THE PROGRAM AT 210 OR 214 ALLOWS THE OPERATOR 
TO CHANGE THE "CONTROL AND STATUS" AND "DATA BUFFER" 
REGISTER ADDRESSES, THE VECTOR ADDRESS AND THE 
PRIORITY LEVEL. 



THE PROGRAM WILL ASK FOR THE DRIVES TO BE TESTED AS PER 
4.3,1. AFTER THE DRIVES HAVE BEEN SELECTED IT WILL ASK 
FOR l 

1 . BUS ADDRESS OF THE CONTROL AND STATUS REGISTER (TAGS) 

2. VECTOR ADDRESS 
3® PRIORITY LEVEL 

AND THE OPERATOR MUST RESPOND WITH THE DESIRED PARAMETER 
OR A CARRIAGE RETURN (WHICH IMPLIES LEAVE AS IS) . 
WHEN ALL PARAMETERS HAVE BEEN DEFINED THE PROGRAM 
WILL TYPE THEM BACK OUT AND ASK IF THEY APE OK AT 
WHICH TIME THE OPERATOR RESPONSES WITH A " i M OR A 
"CARRIAGE RETURN " FOR "YES" ANYTHING ELSE IS A "NO" . 

4.3.2,1 ADDRESS SELECTION EXAMPLES 

DR1VESCS) A 
TACS? 177500 
VECTOR? 260 
PRIORITY? 6 

TACSsi77500 TADB=177502 VECTOP=000260 PRIOR ITY=000300 
OK? 

DRIVES(S) A ir B 
TACS? 470 
VECTOR? 

PRIORITY? 

TACS=1 77470 TADB=177472 VECTOR=0002b0 PRIORITY=000300 

OK? 



5, 



OPERATING PROCEDURE 



5,1 OPERATIONAL SWITCH SETTINGS 

IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH 
REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED WHICH ALLOWS 
THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER ® 
IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES 
AND IT CONTAINS ALL ONES (177777) THEN THE SOFTWARE SWITCH 
REGISTER (LOC, 176) IS USED s 



CONTROL J 

THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH 
REGISTER (LOC, 176) FROM THE TTY, THIS CAN BE ACCOMPLISHED BY 
DOING THE FOLLOWING? 

1) TYPE CONTROL G <"G>| THIS WILL ALLOW THE TTY TO ENTER DATA INTO 
LOC ® 176 AT SELECTED POINTS WITHIN THE PROGRAM. 

2) THE MACHINE WILL THEN TYPE I SWR-XXXXXXNEWr (XXXXXX IS THE OCTAL CONTENTS 
OF THE SOFTWARE SWITCH REGISTER . ) 

3) AFTER THE "NEWs** HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE TTY I 

A) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <CR>. 
(ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS 
WILL BE ALLOWED) 

IF A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 

B) IF A CONTROL U <~U> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU 
BACK TO STEP 2 8 

WITH SW<15|08>=0 THE PROGRAM WILL PRINT OUT ON 
ERRORS AND CONTINUE IN TEST « BELL WILL RING 
AT COMPLETION OF A PASS, 

THE SWITCH SETTINGS APE; 

SW<15>-1 SS0 HALT ON ERROR 
SW<14>=1 . , «LOOP ON TEST 
SW<13>=1... INHIBIT ERROR TYPEGUTS 
SW<U>=1 8 », INHIBIT ITERATIONS 
SW<10>=1 . * .RING BELL ON ERROR 
5W<10>s0. ..RING BELL ON PASS COMPLETE 
SW<09>«1 . ..LOOP ON ERROR 

SW<08>=1 . . .LOOP ON TEST AS PER SW<07l00> 
SW<07>=1 . . .LOCK ON CURRENT DRIVE (ONLY VALID 

FOR STARTING ADDRESSES 220 THRU 250) . 

ir 



5.2 



SUBROUTINE ABSTRACTS 



SCOPE 



THIS SUBROUTINE CALL (VIA AN IOT INSTRUCTION) IS PLACED BETWEEN 
EACH TEST IN THE INSTRUCTION SECTION 9 IT RECORDS THE STARTING 
ADDRESS OF EACH TEST IN LOCATION "SLPAPR" AND H $LPERR H AS IT IS 
BEING ENTERED. 



THIS ROUTINE SUPPORTS THE S/W SWITCH REG FUNCTIONS 
5,2.2 TRAPC A TC HER 



A * . + 2* ~ m HALT M SEQUENCE IS REPEATED FROM LOC . TO LOC . 776 
TO CATCH ANY UNEXPECTED TRAPS. THUS, ANY UNEXPECTED TRAPS WILL 
HALT AT THE DEVICE TRAP VECTOR +2. 



THIS SUBROUTINE CALL (VIA A EMT INSTRUCTION) IS USED TO REPORT 
ALL ERRORS. (REFER TO 6.) 

**# THIS ROUTINE SUPPORTS THE S/W SWITCH REG FUNCTIONS 
*** IF THE PROCESSOR HALTS (BIT 15=1 ) , OPERATOR 
CAN RESET S/W SWITCH REGISTER BY HITTING A 
"CONTROL G" <*G> BEFORE HITTING CONTINUE. 



A NUMBER OF SUBROUTINES ARE CALLED BY THE TRAP INSTRUCTION. 
FOLLOWING IS THE CALLS USED AND THE LABEL OF THE STARTING 
ADDRESS OF THE SUBROUTINES. 



5,2.4.1 TYPE ($T*PE) 

ROUTINE TO TYPE AN ASCIZ STRING ON THE TTY 

THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS 
AFTER A LINE FEED « 

5,2.4*2 RDCHR (SRDCHR) 



5,2.3 



ERROR 



5,2,4 



TRAP 



READ A SINGLE ASCII CHARACTER FROM THE TTY 



5,2*4.3 RDLIN ( $ RDLIN ) 



READ AN ASCII STRING FROM THE TT* 



5,2.4,4 WAITREADY ( WAIT . ON . READY ) 



WAIT ON THE M TA i 1 READY" BIT TO SET 



5,2.4.5 W AITXFER ( WAIT. FOR. XFER.REQ) 



WAIT ON THE "TA11 TRANSFER REQUEST " BIT TO SET 



5.2.5 THE FOLLOWING SUBROUTINES ARE CALLED BX A JSR 
5,2*5*1 STYPEC 

ROUTINE TO T£PE A SINGLE ASCII CHARACTER 
5*2*5*2 TYPERR 

THIS ROUTINE WILL TYPE THE ERROR MESSAGES 

5*2*5*3 SELDRV 

THIS ROUTINE IS USED TO ASK THE OPERATOR WHAT DRIVE(S) 
ARE TO BE TESTED 

5«2*5»4 ASKADR 

THIS ROUTINE WILL ASK THE OPERATOR FOR THE ADDRESSES OF 
THE "TACS", "TADB" AND VECTOR AND THE PRIORITY TO USE. 

5*2*5*5 ASKQUES 

THIS ROUTINE WILL TYPE DIRECTIONS ON THE TTY AND WAITS 
FOR h RESPONSE OF A "Y", W N" OR "CARRIAGE RETURN . 



5.2,6 THE FOLLOW ROUTINES APE USED TO MAKE ADJUSTMENTS TO 

THE TU60. BEFORE USING ANY OF THEM LOAD AND START 214® 



5,2.6,1 WFGSUB 

WRITE FILE GAPS FROM " b T M TO " EOT" 
START AT 220 

THIS ROUTINE CAN BE USED TO ADJUST THE " WRITE GAP MONO" AND 
THE "WRITE DELAY MONO" . 

5*2*6*2 WRTSUB 

WRITE CONTINUOUS BLOCKS OF DATA 

START AT 224 

THE PROGRAM WILL HALT THREE ( 3 ) TIMES 
AFTER EACH HAbT SET THE SWR AND PRESS CONTINUE 
HALT 1 SWR<7:0> = NUMBER OF BYTES PER BLOCK 

HALT 2 SWR<7 :0> = PATTERN DESIRED 

HALT 3 — - SWR<15:0> s OPERATIONAL SWITCH SETTINGS 
THIS ROUTINE CAN BE USED TO ADJUST THE "GAP TIME MONO" 

*# IF USING SOFTWARE SWITCH REGISTER, AFTER 
EACH HALT OPERATOR WILL BE PROMPTED 
FOR THE VALUE WITH "SWR=XXXXXX NEWs" 

5,2*6*3 RDSU8 

READ CONTINUOUS BLOCKS OF LATA 
START AT 230 

THIS ROUTINE CAN BE USED TO ADJUST THE " SIGNAL MONO" 
AND THE "THRESHOLD POT" 

5,2*6,4 WGPBLK 

WRITE A FILE GAP AND A BLOCK OF DATA FROM BOT TO ECT 
START AT 234 

THE PROGRAM WILL HALT THREE (3) TIMES 

AFTER EACH HALT SET THE SWR AND PRESS CONTINUE 

HALT 1 — SWR<?!0> = NUMBER OF BYTES PER BLOCK 

HALT 2 — SwR<7;0> = PATTERN DESIRED 

HALT 3 SWR<15?0> = OPERATIONAL SWITCH SETTINGS 

THIS ROUTINE CAN BE USED TO ADJUST THE "WRITE GAP MONO" 

AND THE "GAP TIME MONO" , 

** IF USING SOFTWARE SWITCH REGISTER, AFTER 
EACH HALT OPERATOR WILL BE PROMPTED 
FOR THE VALUE WITH "SwR=XXXXXX NEw=" 

5,2.6,5 RGBLK 

READ A BLOCK OF DATA AND A FILE GAP 
START AT 240 

THIS ROUTINE IS USED AFTER "WRITE A BLOCK AND A FILE GAP" ROUTINE 
IT CAN BE USED TO ADJUST THE "SIGNAL MOM" . THE THRESHOLD POT" 
AND THE "TAPE BLANK MONO" . 



5,2«6«6 SFFGSB 



SPACE FORWARD FILE GAP FROM "BUT" TO M EOT M 

START AT 244 

THIS ROUTINE CAN BE USED AFTER w WRITE FILE GAP'* F OR LOW SPEED 
SPACE FOWARD ( TAPE BLANK MONO CAN BE ADJUSTED), OR AFTER READ OR 
WRITE A FILE GAP AND A BLOCK OF DATA FOR HIGH SPEED SPACE FORWARD 
(SIGNAL MONO CAN BE CHECKED) , 

5*2*6*7 BSFGSB 

BACK SPACE FILE GAP 
START AT 250 

THIS ROUTINE CAN BE USED TO ADJUST OR CHECK THE "SIGNAL MONO M 9 

5,2,7 THE FOLLOWING SUBROUTINES ARE USED BY THE ADJUSTMENT 

ROUTINES 

5.2,7,1 SETBUF 

SETUP BLOCK SIZE AND PATTERN 
5 9 2 # 7,2 WRTBLK 

WRITES A BLOCK OF DATA 
5,2®7*3 RDBLK 

READS A BLOCK OF DATA 
5*2,7*4 NXTDRV 

CHANGE DRIVE 

6* ERRORS 

THERE ARE A NUMBER OF ERRORS THAT CAN OCCUR IN THIS 
PROGRAM 9 WHEN AN ERROR IS ENCOUNTERED THE CALL TO 
THE ERROR ROUTINE IS MADE AND IF SW<i3> IS NOT 
SET AN ERROR MESSAGE PERTAINING TO THE ERROR WILL BE 
TYPED • EACH ERROR TYPE OUT WILL CONTAIN THE FOLLOWING? 

1 # AN ERROR MESSAGE 
2* A DATA HEADER 
3, A DATA STRING 

REFER TO THE LISTING UNDER SERRTB FOR THE DIFFERENT 
ERRORS THAT CAN OCCUR* 



7. RESTRICTIONS 

BEFORE STARTING THE PROGRAM THE OPERATOR MUST INSURE THAT A 

CASSETTE IS LOADED IN THE ORIVE(S) TO BE TESTED AND iS WRITE 
ENABLED , 

8, MISCELLANEOUS 
8,1 EXECUTION TIME 

IS OPERATOR DEPENDENT BUT SHOULD TAKE NO NOPE THAN 2 MINUTES , 
8*2 STACK POINTER 

STACK IS INITIALLY SET TO 1100* 
8.3 PASS COUNT 

A PROGRAM PASS THRU COUNT IS KEPT IN "SPASS" 9 

8*4 ITERATIONS 

THE FIRST PASS OF THE PROGRAM WILL AUTOMATICALLY INHIBIT 
ITERATIONS, ALL SUBSEQUENT PASSES WILL PERFORM FULL, 
(2000 DECIMAL UNLESS OTHERWISE SPECIFIED WITHIN A TEST) , 
ITERATIONS ® 

8®5 SPECIAL REGISTERS 

R3, R4 AND R5 ARE RESERVED THROUGH OUT THE PROGRAM 

FOR W DRIVE% n 7hCS® AND "TADB" 

9* PROGRAM DESCRIPTION 

THIS PROGRAM IS A SEQUENCE OF SMALL TESTS THAT CHECK 
THE TAU FOR PROPER OPERATION * 

THE TESTS CAN BE GROUPED INTO THE FOLLOWING GENERAL GROUPS, 

1. TEST ^OFFLINE 15 WITH TU60 POWER OFF 

2, TEST ^OFFLINE 1 * WITH CASSETTE REMOVED 
3* TEST "WRITE LOCK" CIRCUITRY 
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183 


TA1 1 DEFINITIONS 




224 


STARTING ADDRESSES 




225 


TRAP CATCHER 




234 


STARTING ADDRESSf ES) 




246 


TOGGLF IN ROUTINES 




293 


LOAD SWITCH REGISTFR INTO TACS 




3%i X 


WRITF SWITCH RFGISTFR ON TAPE FROM ROT TO EOT 




3> £. I 


PF AD FROM HOT TO FOT 




1 A & 


p o m m o m t a n q 

W» vy 1*1 11 v/ 1 *a 1 #4 vj o 




40§«% 


irponp DO I NTFR T A RLF 
c» n t> w t\ ru i i» l Cuts i mpuc 




AAA 


ctrdt OF TFQT 
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coo 
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eu 
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70> 


T1 DOflTlNF to dftfdminf t t mf OF WATT I . o o d <; 




T)lA 






7 91 

r & 1 


T9 SFTfTP FOR MANN AT, TtuTFRVFNTTOW 




7 17 


T1 SFTUP FOR PO WFR DOWN T116 TFST 




7S 1 


T4 Tpcf "OFFTil NF " WHFN TII80 TS POWFRFD DOWN 




798 


TS POWFR DP THF TU60 




Q M 

O 4 J 


Tfi TFST "OFFLINE" WHFN DRTVF TS FMPTY 




829 


T7 put DRIVE "ONLINE" 




844 


T10 PUT DATA ON TAPE FOR WRITE LOCK TEST 




896 


Til TEST "WRITE LOCK" WHEN AT CLEAR LEADER 




1 000 


Ti? TEST "WRITE LOCK" WITH "CPC ERROR M 




1101 


Tl 1 TEST "WRITE LOCK" WITHOUT ANY ERRORS 




1 1 Q A 


TI 4 TEST "WRITE LOCK" WITH FILF G AP= 1 




1 295 


Tl S TRY WRITING ON TAPF WHEN "WRITE LOCKED" 




1 141 


r 1 fv TRY " WFfi" WHPN WRTTF L P K F D 






T17 TFST "WPG" ON CTiFAR LEADFR AND WRITF LOCKFD 




i J 7 j 


T20 TEST "WRITE" WITH WRITE LOCK ON AND AT CLEAR 


LEADER 


1 *8 J. 4 


T21 TEST "WRITE ENABLE" 




1 t 


T22 END OF TEST CODE 






END OF PASS ROUTINE 
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SCOPE HANDLER ROUTINE 




1540 


ERROR HANDLER ROUTINE 






ERROR TYPEOUT ROUTINE 




X U d& M 


ROUTINE TO WAIT ON THE READY BIT TO SET 




1657 


ROUTINE TO WAIT ON TRANSFER REQUEST 




1686 


ROUTINE TO ASK THE OPERATOR WHAT DRIVE(S) TO 


TEST 


1721 


ROUTINE TO INPUT CSR,DBR, AND VECTOR ADDRESS AND PRIORITY 


1786 


TYPE DIRECTIONS TO OPERATOR AND WAIT FOR RESPONSE 


1826 


########## MANUAL ADJUSTMENT ROUTINES ♦***♦*♦#** 


1836 


WRITE FILE GAPS FROM "BOT" TO "EOT" 




1861 


WRITE CONTINUOUS BLOCKS OF DATA 




1893 


READ CONTINUOUS BLOCKS OF DATA 




1916 


WRITE A FILE GAP AND A BLOCK QY DATA FROM BOT 


TO EOT 


1953 


READ A BLOCK OF DATA AND A FILE GAP 




1981 


SPACE FORWARD FILE GAP FROM "EOT" TO "EOT" 




2008 


BACK SPACE FILE GAP 




2025 


SETUP BLOCK SIZE AND PATTERN FOR SUBROUTINES 




2059 


WRITE ROUTINE FOR THE MANUAL OPERATIONS 




2077 


READ ROUTINE FOP THE MANUAL OPERATIONS 
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TITLE TA11 MANUAL INTERVENTION TEST 
♦COPYRIGHT (C) 1973, 1976 
♦DIGITAL EQUIPMENT CORP, 
♦MAYNAPD, MASS, 01754 

* 

♦PROGRAM BY JIM LACEY 

* 

♦THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
♦PACKAGE (MAINDtC-1 1-DZQAC-C1 ) ,MAR 24, 1976, 

# 

» REM J 

GENERAL INFORMATION ABOUT THE TA11/TU60 CASSETTE 
ADDRESS MNEMONIC DESCRIPTION 



777500 TACS 
777502 TADB 
260 TAVEC 



CONTROL AND STATUS REGISTER 
DATA BUFFER REGISTER 
INTERRUPT VECTOR 



1 ACS REGISTER DESCRIPTION 



15 EPROP 

14 BLOCK CHECK ERROR 

13 CLEAR LEADER 

12 WRITE LOCK 

11 FILE GAP 

10 TIMING ERROR 

09 OFF LINE 

08 UNIT SELECT 

07 TRANSFER REQUEST 

06 INTERRUPT ENABLE 

05 READY 

04 ILBS 

03 FUNCTION BIT 02 

02 FUNCTION BIT 01 

01 FUNCTION R I T 00 

0SWRITE-I 1 ILE-GAP 

1SWRITE 

2=READ 

3=BACK SPACE FILE GAP 
4=BACK SPACE BLOCK GA 
5=SPACE FORWARD FILE 
6=SPACE FORWARD BLOCK 

7sREWIND 
00 GO BIT 



INIT 
STATE 



READ AND/OR WRITE? 



READ ONLY 
READ ONLY 
READ ONLY 
READ ONLY 
READ ONLY 
READ ONLY 
READ ONLY 
READ/WRITE 
READ ONLY 
READ/WRITE 
READ ONLY 
READ/WRITE 
READ/WRITE 
READ/WRITE 
READ/WRITE 



P 

GAP 
GAP 



WRITE ONLY 1 
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71 

72 



57 


j I 




58 


, SBTTL 


OPERATIONAL SWITCH SETTINGS 


59 


J * 






60 


j# 


SWITCH 


USE 


6! 


I* 






62 


• * 


15 


HALT ON ERROR 


63 




|4 


LOOP ON TEST 


6 4 




13 


INHIBIT ERROR TYPEOUTS 


65 


• * 


11 


INHIBIT ITERATIONS 


66 




10 


BELL ON ERROR 


6 1 


• * 


9 


LOOP ON ERROR 


68 


* * 


8 


LOOP ON TEST IN SWR<7:0> 


69 




7 


LOCK ON CURRENT DRIVE (ONLY VALID WITH MANUAL 


7!3 





. SBTTL BASIC DEFINITIONS 

;«INITIAL ADDRESS OF THE STACK POINTER *** 1 100 *♦* 
STACK= 1100 

.EOUIV EMT, ERROR ; {BASIC DEFINITION OF ERROR CALL 

.EOUIV IOT, SCOPE f {BASIC DEFINITION OF SCOPE CALL 



{^MISCELLANEOUS DEFINITIONS 



79 


00001 1 


HT= 


1 1 


; {CODE FOR HORIZONTAL TAB 


80 


000012 


LF= 


12 


j f CODE FOR LINE FEED 


81 


000015 


CP= 


15 


; ;CODE FOR CARRIAGE RETURN 


82 


000200 


CRLF= 


200 


{ ;CODE FOP CARRIAGE RETURN-LINE FEED 


83 


177776 


PS= 


177776 


; ; PROCESSOR STATUS WORD 


84 




.EQUIV 


PS,PSW 




85 


177774 


STKLMT= 


177774 


• ; STACK LIMIT REGISTER 


86 


177772 


PIRQ= 


177772 


; ; PROGRAM INTERRUPT REQUEST REGISTER 


87 


177570 


DSWRs 


177570 


{ ; HARDWARE SWITCH REGISTER 


88 


177570 


DDISP= 


177570 


; ; HARDWARE DISPLAY REGISTER 


89 
90 




; ♦GENERAL PURPOSE 


REGISTER DEFINITIONS 


91 


000000 


R0= 


%0 


; ; GENERAL REGISTER 


92 


000001 


Rla 


%1 


{ J GENERAL REGISTER 


93 


000002 


R2 = 


%2 


; ; GENERAL REGISTER 


94 


000003 


R3 = 


%3 


; ; GENERAL REGISTER 


95 


000004 


R4 = 


%4 


; ; GENERAL REGISTER 


96 


000005 


R5s 


%5 


j } GENERAL REGISTER 


97 


000006 


R6s 


%6 


; {GENERAL REGISTER 


98 


000007 


R7s 


%7 


? ; GENERAL REGISTER 


99 




.EQUIV 


R6,SP 


{ { STACK POINTER 


100 




.FQUIV 


R7,PC 


; ; PROGRAM COUNTER 


101 
102 




{♦PRIORITY LEVEL 


DEFINITIONS 


103 


000000 


PR0= 





| ; PRIORITY LEVEL 


104 


000040 


PR1 = 


40 


; {PRIORITY LEVEL 1 


105 


000100 


PP2 = 


100 


; { PRIORITY LEVEL 2 


106 


0001 40 


PR3 = 


140 


; JPRIORITY LEVEL 3 


107 


000200 


PP4s 


200 


; j PRIORITY LEVEL 4 


108 


000240 


PR5 = 


240 


; {PRIORITY LEVEL 5 


109 


000300 


PR6= 


300 


j {PRIORITY LEVEL 6 


1 10 


000340 


PP7s 


340 


{ { PRIORITY LEVEL 7 


111 
112 




•♦"SWITCH REGISTER" SWITCH DEFINITIONS 



TAll MANUAL INTERVENTION TEST MAInDeC-1 l -5ZTAC-C 
DZTACC.NEW BASIC DEFINITIONS 
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SEQ 0016 



113 


1 00000 


SW15s 


1 00000 


114 


040000 


SW1 4s 


40000 


115 


020000 


SW1 3s 


20000 


116 


01 0000 


SW1 2 = 


10000 


117 


004000 


Sto'l Is 


4000 


118 


002000 


SW 1 0= 


2000 


119 


001 000 


SW09s 


1000 


120 


000400 


SW08 = 


400 


121 


000200 


SW07s 


200 


122 






1 00 






Jl " 


40 


194 








1 0* 


aaaa 1 pi 






Oft 


aokai%a A 

VOWWV'i 








VSV/vxix/ £ 


~J * " 




128 


00000 1 


SW00s 




129 






cuan citio 


! a? 






C O CUI Q 
OUBB OnO 


! ii 




II? V 










&W0O > SWD 


i * * 






cuflc eye 


1 J A 




rmiTV 


CUCIA CWA 


i a* 




EQUIV 


CUCI3 CWS 
0«B J / on J 


1 36 




"foiitv 


O ™|0 Z ? O f* Z 


1 37 




"equiv 


QUA 1 . ewl 


! i! 







CM 0)61 . CW01 










1 40 




• #DATA 




141 


1 c* a a a ft 


BITISs 


1 01 01 01 MCI 


14 2 


aAaaaa 


DTT1 t" 


40000 




V £ BWHW 




Z W<0We> 


144 


1 0000 


BIT12- 






00 4000 








M (A O 01 CI 0! 
V V £ 10 WW 


BIT1 0" 


oaaa 


| ' 


fAIA 1 {A(A(A 
YflO I x)Y)Y) 


B I T09— 


iaaa 
\aa 






B I T0 8 = 




1 AO 


aw oi "5 old 




oaa 


1 50 


atAa 1 act 




100 




auaa AO! 








oitAaoi o a 
tivrJYi tx) 




_ 


1 o 


aaaa 1 a 








VWVVtt 


RTTtO- 


* 




OWYJW £ 


BIT01" 




: IT, 


aaaaa 1 


B I T00s 




1 El 






RTTP1Q RTTQ 


158 




"equiv 


U T T0I Q RTT8 


159 




t'QUI V 


BIT07 i BI T7 






.EQUIV 


BIT06* BIT6 


161 




.EQUIV 


BIT05 i B I T5 


162 




.fc'QUIV 


BIT04# BIT4 


163 




.EQUIV 


BIT03,BIT3 


164 




.EQUIV 


BIT02,BIT2 


165 




.EOUIV 


BIT01 ,BIT1 


166 




.EQUIV 


BIT00,BIT0 


167 








168 




;*BASIC 


"CPU" TRAP ' 



TA11 MANUAL INTERVENTION TEST MAINDEC-1 1 -DZTAOC MAC Yl 1 27(732) ll-JUN-76 13:51 PAGE 4 SEQ 0017 



DZTACC.NEW BASIC DEFINITIONS 

169 000004 ERRVECs 4 ; ; TIME OUT AND OTHER ERRORS 

170 000010 PESVECs 10 • ; RESERVED AND ILLEGAL INSTRUCTIONS 

171 000014 TBITVECsl 4 ; ; "T" BIT 

172 000014 TPTVECs 14 ; ; TRACE TRAP 

173 000014 BPTVECs 14 5 | BREAKPOINT TRAP (BPT) 

174 000020 lOTVECs 20 ; ; INPUT/OUTPUT TRAP (I0T) »#SC0PE*« 

175 000024 PWRVECs 24 ;;P0WER FAIL 

176 000030 EMTVECs 30 J 7 EMULATOR TRAP (EMT) **ERR0R*» 

177 000034 TRAPVECs34 ? i "TRAP" TRAP 

178 000060 TKVEC= 60 ; i TTY KEYBOARD VECTOR 

179 000064 TPVECs 64 ; ; TTY PRINTER VECTOR 

180 000240 PIROVEC = 240 j y PROGRAM INTERRUPT REQUEST VECTOR 



TA11 MANUAL INTERVENTION TEST MAINDEC-1 1 -DZTAC-C 
DZTACC.NEW TAl 1 DEFINITIONS 



MACY11 27(732) U-JUN-76 13:51 PAGE 5 



SEQ 0018 



181 ;TA1 1 FUNCTIONS 

182 000000 WFG= ; WRITE FILE GAP FUNCTION 

183 000002 WRITEs 2 ;WRITE FUNCTION 

184 000004 PEAD= 4 ; READ FUNCTION 

185 000006 BSFGs 6 jBACK SPACE FILE GAP FUNCTION 

186 000010 BSBG= 10 ; BACK SPACE BLOCK GAP FUNCTION 

187 000012 SFFG= 12 ;SPACE FWD FILE GAP FUNCTION 

188 000014 SFBGs 14 ; SPACE FWD BLOCK GAP FUNCTION 

189 000016 REWINDS 16 ; REWIND FUNCTION 

1 90 ; ; *»♦**##*##*##******♦«**#******##****#*♦##*#»♦#♦**#*#*»»#♦»#»»## 
191 

192 ;TA11 BIT ASSIGNMENT 

193 100000 ERRORS BIT15 

194 040000 CRCERRs BIT14 

195 020000 LEADERS BIT13 

196 010000 WRTLOCK=BIT12 

197 004002 FGAPs BIT11 

198 002000 TIMERRs BIT10 

199 001000 OFFLINEsBlT09 

200 000400 UNITs BIT08 

201 000200 TP.REQs BIT07 

202 000100 INT. ENs BIT06 

203 000040 READ Ys BIT05 

204 000020 ILBSs BIT04 

205 000010 FUNC2s BIT03 

206 000004 FUNCls BIT02 

207 000002 FUNC0S BIT01 
209 000001 GOs BIT00 

209 000016 FUNCTIONS FUNC2+FUNC 1 +FUNC0 

210 ;////////////////////////////////////////////////////////////////////// 

211 ;////////////////////////////////////////////////////////////////////// 

213 

214 ;SPECIAL REGISTERS 

215 000003 DPIVEs %3 ;R3 CONTAINS THE DRIVE UNDER TEST 

216 000004 TACSs %4 ;R4 IS USED AS A POINTER TO THE TAGS REGISTER 

217 000005 TADBs %5 ;R5 IS USED AS A POINTER TO THE TADB REGISTER. 

218 



TAl 1 MANUAL INTERVENTION TEST M A I NDEC - 1 1 -DZTAC -C MACYll 27(732) U-JUN-76 13:51 PAGE 6 SEQ 0019 



DZTACC.NEW 


TRAP CATCHER 








221 
222 








. SBTTL TRAP 


CATCHER 




223 




000000 




,S0 






224 








; * ALL UNUSED 


LOCATIONS FROM 


4 - 776 CONTAIN A " . + 2, HALT" 


225 








;*SEQUENCE TO 


CATCH ILLEGAL 


TRAPS AND INTERRUPTS 


226 








;*LOCATION 


CONTAINS TO CATCH IMPROPERLY LOADED VECTORS 


227 




000174 




,si74 






228 


000174 


000000 




DISPREG: .WORD 


; ; SOFTWARE DISPLAY REGISTER 


229 


0001 76 


000000 




SWREG: , WORD 


; ; SOFTWARE SWITCH REGISTER 


230 








.SBTTL STARTING ADDRESS ( ES ) 




231 


000200 


000137 


001326 


JMP 


0#BEGIN1 


; ; JUMP TO STARTING ADDRESS OF PROGRAM 


232 


000204 


000137 


001 360 


JMP 


$i#BEGIN2 


; SELECT DRIVE(S) BEFORE STARTING TEST 


233 


000210 


0001 37 


001 366 


JMP 


S#BEGIN3 


; SELECT DRIVE(S) AND ADDRESSES BEFORE TESTING 


234 


000214 


000137 


001730 


JMP 


i#BEGINX 


;SETUP FOR MANUAL LOOPING 


235 


000220 


0001 37 


007604 


JMP 


PftWFGSUB 


; WRITE FILE GAP FROM BOT TO EOT 


236 


000224 


000137 


007670 


JMP 


P&WRTSUB 


j WRITE CONTINUOUS BLOCKS OF DATA 


237 


000230 


000137 


007756 


JMP 


9IRDSUB 


; READ CONTINUOUS BLOCKS OF DATA 


238 


000234 


000137 


010036 


JMP 


P#WGPBLK 


; WRITE FILE GAP AND A BLOCK OF DATA 


239 


000240 


000137 


010140 


JMP 


P#RGPBLK 


; READ BLOCK OF DATA AND INTO A FILE GAP 


240 


000244 


000137 


010234 


JMP 


fa#SFFGSB 


;SPACE FWD FILE GAP FROM BOT TO EOT 


241 


000250 


000137 


010320 


JMP 


g#BSFGSB 


; BACK SPACE FILE GAPS 



TAI1 I 
DETRCI 



IANUAL INTERVENTION TEST MAINDEC-1 1 -DZTAC-C 
!,NEW TOGGLE IN ROUTINES 
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SEQ 0020 



;////////////////////////////////////////////////////////////////////// 
;////////////////////////////////////////////////////////////////////// 

f THE FOLLOWING ROUTINES CAN BE TOGGLED IN. 

>////////////////////////////////////////////////////////////////////// 



. REM I 



THE FOLLOWING ROUTINES (LOOP1, LOOP2, & LOOP3) CAN BE TOGGLED 
IN WHEN IT IS IMPOSSIBLE TO LOAD THE DIAGNOSTICS 

NOTE : BEFORE USING THESE ROUTINES INSURE THAT R3,R4#& R5 

ARE SETUP PROPERLY. 
** NOTE: IF USING SOFTWARE SWITCH REGISTER THE 

LOCATION SWR (&U40) MUST CONTAIN 

ADDRESS "SWREG" ( = 176) . 

##» PLACE VALUE INTO 176 »#* 

*# REGISTERS 3, 4r AND 5 *« 

*# MUST BE SETUP VIA MOVE INSTRUCTIONS #» 

R3 = IF USING DRIVE A 

400 IF USING DRIVE B 

R4s TA11 STATUS REG ADDRESS (TACS 177500) 

R5s TAH DATA BUFFER ADDRESS (TADB 177502) 

LOOP1 WILL LOAD THE SWITCH REGISTER INTO THE TACS. 

LOOP2 WILL WRITE THE CONTENTS OF THE SWITCH REGISTER 
ALL THE WAY TO END-OF-T APE ( EOT ) . 

LOOPS WILL READ TO EOT. DATA WILL GO TO R0. 

NOTES LOOP2 AND LOOP3 WILL REWIND WHEN EOT IS REACHED AND 
THEN START OVER. 

1 

• • # 

; LOAD SWITCH REGISTER INTO THE TACS 

• } 

000500 s s500 

000500 017714 000434 LOOPlS MOV ?SWR,PTACS ; LOAD TACS 

000504 000775 BR LOOP1 ;LOOP 



TA11 MANUAL 
DZTACC.NEW 



INTERVENTION TEST MAINDEC-1 1 -DZTAC-C MACY11 27(732) ll-JUN-76 13:51 PAGE 

WRITE SWITCH REGISTER ON TAPE FROM BOT TO EOT 











% WRITE 


SWITCH REGISTER ON 


TAPE FROM BOT TO EOT 








• 








000600 






8 sfe00 






000600 


000005 




LOOP2! 


RESET 




;CLEAR ALL FLAGS 


000602 


010314 






MOV 


DRIVE, STACS 


; SELECT DRIVE 


000604 


1 12714 


000017 




MOVB 


#REWINDlGO,9TACS 


;GO TO BOT 


000610 


032714 


000040 


US 


BIT 


#READY, PTACS 


;WAIT TILL READY COMES UP 


000614 


001775 






BEQ 


IS 




000616 


112714 






MOVB 


# WRITE! GO f 3TACS 


; START A WRITE 


000622 


105714 




2S: 


TSTB 


PTACS 


jCHECK FOR TRANSFER REQUEST 


000624 


100003 






BPL 


3S 


; BR IF NOT SET 


000626 


017715 


000306 




MOV 


PSWP , 3TADB 


; SEND DATA TO TAl 1 


000632 


000773 






BR 


2S 


;LOOP 


000634 


032714 


000040 


3S: 


BIT 


if READ Y, OTACS 


;DID READY SET? 


000640 


001357 






BNE 


LOOP2 


; START OVER IF YES 


000642 


000767 






BR 


2S 


;LOOP 



; READ FROM BOT TO EOT 





000700 






.-700 






000700 


000005 




LOOP3: 


RESET 




; CLEAR ALL FLAGS 


000702 


010314 






MOV 


DRIVE, PTACS 


; SELECT DRIVE 


000704 


1 12714 


000017 




MOVB 


#REWINDlGO r STACS 


; START A REWIND 


000710 


032714 


000040 


1 S S 


BIT 


8READY, PTACS 


;WAIT ON REWIND TO FINISH 


000714 


001775 






BEG 


1$ 




000716 


112714 


000005 




MOVB 


8 READ! GO, PTACS 


; START A READ 


000722 


105714 




2SJ 


TSTB 


&TACS 


;CHECK TRANSFER REQ 


000724 


100002 






BPL 


3$ 


; BR IF NOT SET 


000726 


011500 






MOV 


GTADB, R0 


fPICKUP THE DATA 


000730 


000774 






BR 


2$ 


;LOOP 


000732 


032714 


000040 


3 S 1 


BIT 


% READY, £TACS 


;CHECK READY 


000736 


001360 






BNE 


LOOP3 


; START OVER 


000740 


000770 






BP 


2$ 


JLOOP 



TA11 MANUAL INTERVENTION TEST MAINDEC-1 1 -DZTAC-C 
DZTACC.NEW COMMON TAGS 
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SEQ 0022 



336 






e SBTTL 


COMMON 


TAGS 




337 
338 








339 






{♦THIS 


TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 


340 






;#USED 


IN THE PROGRAM, 




341 
342 




001100 




a S!il00 






343 


001 100 




SCMTAG: 






• { START OF COMMON TAGS 


344 


001100 


000000 


spass: 


, WORD 





• t {CONTAINS PASS COUNT 


345 


001 102 


000 


STSTNM: 


.BYTE 





; ^CONTAINS THE TEST NUMBER 


346 


001 103 


000 


SERFLG: 


.BYTE 


; ;C0NTA1NS ERROR FLAG 


347 


001104 


000000 


SICNT: 


. WORD 





• {CONTAINS SUBTEST ITERATION COUNT 


348 


001106 


000000 


SLPADR: 


. WORD 





■ {CONTAINS SCOPE LOOP ADDRESS 


349 


001 110 


000000 


SLPERRl 


„ WORD 





■ {CONTAINS SCOPE RETURN FOR ERRORS 


350 


001112 


000000 


SERTTL: 


.WORD 





• {CONTAINS TOTAL ERRORS DETECTED 


351 


001114 


000 


SITEMB: 


«BYTE 





{CONTAINS ITEM CONTROL BYTE 


352 


001115 


001 


SERMAX: 


.BYTE 


1 


{CONTAINS MAX. ERRORS PER TEST 


353 


001116 


000000 


SERRPC: 


.WORD 





{CONTAINS PC OF LAST ERROR INSTRUCTION 


354 


001 120 


000000 


SGDADR: 


.WORD 


% f CONTAINS ADDRESS OF 'GOOD* DATA 


355 


001122 


000000 


SBDADR: 


.WORD 





{CONTAINS ADDRESS OF 'BAD' DATA 


356 


001124 


000000 


SGDDAT: 


.WORD 





{CONTAINS 'GOOD' DATA 


357 


001126 


000000 


SBDDAT: 


,WORD 





• {CONTAINS 'BAD* DATA 


358 


001 130 


000000 




.WORD 





» {RESERVED--NOT TO BE USED 


359 


0011 32 


000000 




o WORD 







360 


001 1 34 


000 


8AUT0B: 


.BYTE 





' {AUTOMATIC MODE INDICATOR 


361 


001 135 


000 


8INTAG: 


»BYTE 





•{INTERRUPT MODE INDICATOR 


362 


001 1 36 


000000 




, WORD 







363 


001 140 


177570 


SWRj 


.WORD 


DSWR 


{ADDRESS OF SWITCH REGISTER 


364 


001142 


177570 


DISPLAY: .WORD 


DDISP 


> {ADDRESS OF DISPLAY REGISTER 


365 


001144 


177560 


STKS: 


177560 




{TTY KBD STATUS 


366 


001146 


177562 


STKB: 


177562 




■ {TTY KBD BUFFER 


367 


001 150 


177564 


STPS! 


177564 


J { TTY PRINTER STATUS REG. ADDRESS 


368 


001152 


177566 


STPB; 


177566 




■ {TTY PRINTER BUFFER REG, ADDRESS 


369 


001 154 


000 


snull: 


.BYTE 





{CONTAINS NULL CHARACTER FOR FILLS 


370 


001155 


002 


SFILLS: 


.BYTE 


2 ; {CONTAINS » OF FILLER CHARACTERS REQUIRED 


371 


001156 


012 


SF1LLC: 


.BYTE 


12 


• {INSERT FILL CHARS. AFTER A "LINE FEED" 


372 


001157 


000 


stpflg: 


*BYTE 





{ "TEPMINAL AVAILABLE" FLAG ( BIT<07>=0=YES ) 


373 


001 160 


000000 


SREGAD: 


.WORD 





{CONTAINS THE ADDRESS FROM 


374 












{WHICH (SREG0) WAS OBTAINED 


375 


001 162 


000000 


SREG0 I 


8 WQRD 





{CONTAINS ( ( SREGAD) +0) 


376 


001164 


000000 


SREGl : 


.WORD 





{CONTAINS ( (SREGAD)+2) 


377 


001 166 


000000 


8TIMESJ 







{MAX, NUMBER OF ITERATIONS 


378 


001 170 


000000 


SESCAPE10 




■ {ESCAPE ON ERROR ADDRESS 


379 


001172 


177607 000377 


sbell: 


.ASCIZ 


<207><377><377> 


{CODE FOR BELL 


380 


001 176 


077 


sques: 


.ASCII 


/?/ 


{QUESTION MARK 


381 


00 1177 


015 


SCRLF! 


.ASCII 


<15> 


{CARRIAGE RETURN 


382 


001200 


000012 


SLF x 


.ASCIZ 


<12> 


{LINE FEED 


383 








384 


001202 


000000 


SAVPC: 


.WORD 





{STORAGE FOR THE PC 


385 


001204 


000000 


savps: 


, WORD 





{ STORAGE FOR THE PS 


386 

387 


001206 


177500 


tacsl: 


177500 




{ LOW BYTE ADDRESS OF TACS 


388 


001210 


177501 


TACSH: 


177501 




{HIGH BYTE ADDRESS OF TACS 


389 


001212 


177502 


tadbl: 


177502 




{LOW BYTE ADDRESS OF TADB 


390 


001214 


177503 


tadbh: 


177503 




{HIGH BYTE ADDRESS OF TADB 


391 


001216 


000260 000262 


TAVEC: 


260,262 




{ TA1 1 VECTOR ADDRESS 



TA11 MANUAL INTERVENTION TEST MA INDEC - 1 1 -DZTAC -C MACY11 27(732) ll-JUN-76 13:51 PAGE 10 

DZTACC.NEW COMMON TAGS 

392 001222 000300 TAPRIO: 300 {TAll BR LEVEL 6 

393 001224 000000 000000 DRVKEY : 0,0 {DRIVE SELECT KEY: 

394 001230 001224 DRVPNT: DRVKEY 

395 001232 000000 ASKKEY: 

396 001234 00000M CURDRV: {CURRENT DRIVE BEING TESTED 



TA11 MANUAL INTERVENTION TEST MAINDEC-1 1 -DZTAC-C 
DZTACC.NEW ERROR POINTER TABLE 
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SEQ 0024 



397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 



001236 
001240 
001242 
001244 



001246 
001250 
001252 

001254 



001256 

001260 
001262 
001264 



001266 
001270 
001272 
001274 



001276 
001300 
001302 
001 304 



013061 

013227 
013340 



013100 
013244 
013346 



013126 

013244 
013346 
000000 



013167 
01 3244 
013346 



01 3212 
013301 
013356 



»SBTTL ERROR POINTER TABLE 

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

••THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

;»LOCATION SlTEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

;*NOTEl : IF $ ITEMB IS THE ONLY PERTINENT DATA IS (SERRPC) . 

;»NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 



• *• 


EM 


t t POINTS 


TO 


THE 


ERROR MESSAGE 




DH 


j : POINTS 


TO 


THE 


DATA HEADER 


• * 


DT 


i » POINTS 


TO 


THE 


DATA 


• * 


DF 


: J POINTS 


TO 


THE 


DATA FORMAT 



SERRTB: 

; NOTE : ALL NUMBERS ARE TYPED AS 6-DIGIT OCTAL NUMBERS 



1 

EMI 
DH1 
DTI 



2 

EM2 
DH2 
DT2 



3 

EM3 
DH2 
DT2 



4 

EM4 
DH2 
DT2 



5 

EM5 
DH5 
DT5 



i STATUS PROBLEM 
i PC TACS 
; SERRPC SREG0 



; READY FAILED TO SET 

;PC TACS WAIT ADDRESS 

: SERRPC SREG0 SAVPC 



j TRANSFER REQUEST FAILED TO SET 
j PC TACS WAIT ADDRESS 

; SERRPC SREG0 SAVPC 



7 THE WRONG FLAG SET 

;PC TACS WAIT ADDRESS 

; SERRPC SREG0 SAVPC 



; DATA PROBLEM 
j PC TACS 
j SERRPC SREG0 



EXPECT 
SGDDAT 



RCV'D 
SBDDAT 



TA11 MANUAL INTERVENTION TEST MAINDEC-1 1 -DZTAC-C 
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DZTACC 


NEW 


ERROR POINTER TABLE 






446 


001306 




ITEMS2: 


; ITEMS 201-202 


447 










448 


001306 


013402 


EM201 


;TAU FAILED TO RESPOND 


449 


001310 


013454 


DH201 


?PC TACS 


450 


001 312 


013370 


DT201 


j SERRPC TACS 


451 


001314 


000000 





; BOTH NUMBERS ARE TYPED 


452 










453 


001316 


013431 


EM202 


JNO DRIVES AVAILABLE 


454 


001320 


013471 


DH202 


J PC 


455 


001 322 


013376 


DT202 


; SERRPC 


456 


001324 


000000 







457 











TA11 MANUAL INTERVENTION TEST MAINDEC-1 1 -DZTAC-C 
DZTACC .NEW START OF TEST 
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SEQ 0026 



458 








459 








460 








461 








462 








463 








464 








465 








466 








467 








468 








469 


001 326 


005005 




470 


001 330 


012737 


041 101 


471 


001336 


122737 


000005 


472 


001344 


00101 I 




473 


001 346 


022737 


000260 


474 


001354 


00101 1 




475 


001356 


000403 




476 


001 360 


01 2705 


000001 


477 


001364 


000405 




478 


001366 


012705 


000002 


479 


001 372 


000402 




480 


001374 


012705 


000003 


481 


001400 






482 








483 








484 


001 400 


012706 


001 100 


485 


001 404 


005026 




486 


001 406 


022706 


001 140 


487 


00141 2 


001 37 4 




488 


001414 


01 2706 


001 100 


489 








490 


001 420 


012737 


006046 


491 


001 426 


012737 


000340 


492 


001 434 


012737 


006320 


493 


001 442 


012737 


000340 


494 


001450 


012737 


012304 


495 


001456 


012737 


000340 


496 


001 464 


012737 


012370 


497 


001472 


012737 


000340 


498 


001500 


016767 


004270 


499 


001506 


005067 


177454 


500 


00151 2 


005067 


177452 


501 


001516 


1 12767 


000001 


502 


001524 


01 2767 


001524 


503 


001532 


012767 


001 532 


504 








505 








506 


001540 


01 3746 


000004 


507 


001544 


012737 


001600 


508 


001552 


012767 


177570 


509 


001560 


012767 


177570 


510 


001566 


022777 


177777 


511 


001574 


001012 




512 








513 


001576 


000403 





001224 

000041 



000020 
000022 
000030 
000032 
000034 
000036 
000024 
000026 
004260 



177371 
177354 
177350 



000004 
177360 
177354 
177344 



;////////////////////////////////////////////////////////////////////// 
;////////////////////////////////////////////////////////////////////// 

• | #### 

; BEGIN 1 IS FOR NORMAL START 

; BEGIN2 IS FOR DRIVE SELECTION 

; BEGIN3 IS FOR DRIVE & ADDRESS SELECTION 

; BEGIN4 IS FOR MANUAL OPERATION 



BEGIN4 : 

BGNCMN; 
.SBTTL 



; j INITIALIZE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

CLR 

MOVB 

MOV 

MOV 

• ; SIZE FOR A 
; j EQUAL TO A 



CLP 


R5 




; NORMAL START 


MOV 


#"AB,g#DRVKEY 






CMPB 


#5,g»#41 




jCASSETTE DDP? 


BNE 


BGNCMN 




;GO BEGIN COMMON CODE IF NO 


CMP 


#260, (a#TAVEC 




; STANDARD VECTOR? 


BNE 


BGNCMN 




yGO BEGIN COMMON CODE IF NO 


BR 


BEGIN 3 




; GET DRIVES AND ADDRESSES 


MOV 


#1,R5 




; ASK FOR DRIVES FLAG 


BR 


BGNCMN 




; BEGIN COMMON CODE 


MOV 


#2,P5 




; ASK FOR DRIVES AND ADDRESSES 


BR 


BGNCMN 






MOV 


#3r R5 






INITIALIZE THE COMMON TAGS 




THE 


COMMON TAGS (SCMTAG) 


AREA 




MOV 


#$CMTAG,R6 


• jFIRST 


LOCATION TO BE CLEARED 


CLR 


(R6) + 


• ; CLEAR 


MEMORY LOCATION 


CMP 


#SWR,P6 ; 1 DONE? 






BNE 


.-6 


JLOOP BACK IF NO 


MOV 


#STACK,SP 


• ; SETUP 


THE STACK POINTER 



FEW VECTORS 
#$SCOPE,fMIOTVEC 
*340,g#IOTVEC+2 ; 



> ; IOT VECTOR FOR SCOPE ROUTINE 
j LEVEL 7 

SSERROR, MEMTVEC j ; EMT VECTOR FOR ERROR ROUTINE 
#340,P#EMTVEC+2 ; ; LEVEL 7 

SSTRAP, 0#TRAPVEC ; ;TRAP VECTOR FOR TRAP CALLS 
#340, P#TRAPVEC+2;LEVEL 7 

#$PWRDN,3#PWRVEC f, 'POWER FAILURE VECTOR 
#340, P#PWRVEC+2 ; ; LEVEL 7 

SENDCT, SEOPCT ; ; SETUP END-OF-PROGRAM COUNTER 
ST1MES ; ; INITIALIZE NUMBER OF ITERATIONS 

SESCAPE ; ; CLEAR THE ESCAPE ON ERROR ADDRESS 

#1,$ERMAX ; ; ALLOW ONE ERROR PER TEST 

# ., SLPADP j ; INITIALIZE THE LOOP ADDRESS FOR SCOPE 

# . , S LPERR ; ; SETUP THE ERROR LOOP ADDRESS 

HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
"-1 " , SETUP FOR A SOFTWARE SWITCH REGISTER. 

;SAVE ERROR VECTOR 
;SET UP ERROR VECTOR 

; SETUP FOP A HARDWARE SWICH REGISTER 
j AND A HARDWARE DISPLAY REGISTER 
; TRY TO REFERENCE HARDWARE SWR 
; BRANCH IF NO TIMEOUT TRAP OCCURRED 
; AND THE HARDWARE SWR IS NOT = -1 
; BP ANC H IF NO TIMEOUT 



MOV 


g#ERPVEC, -(SP) 


MOV 


#64S,P#ERRVEC 


MOV 


#DSWR,SWR 


MOV 


#DDISP, DISPLAY 


CMP 


ff-i* 3SWR 


BNE 


66$ 


BR 


65$ 
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514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 



001600 
001604 
001606 
001614 
001622 



001626 
001632 
001634 
001642 
001644 



012716 001606 



001650 
001654 
001656 
001664 
001666 
001670 
001672 
001700 
001700 000413 

001730 



012767 000176 
012767 000174 
012637 000004 



005227 1 77777 

001036 

022737 006014 
001432 

104401 001702 

005737 000042 



001730 
001732 
001734 
001736 
001742 
001744 
001746 



177324 
177320 



64$ : 
65$: 
66$ : 



026727 177256 
001005 
104405 
000403 

1 12767 000001 



010504 
005305 
002406 
004737 
005305 
002402 
004737 



MOV 


#65$, (SP) 


; ;SET UP FOR TRAP RETURN 


RTI 






MOV 


#SWREG,SWR 


• f POINT TO SOFTWARE SWP 


MOV 


#DISP PEG, DISPLAY 


MOV 


(SP)+, P#ERRVEC 


; ; RESTORE ERROR VECTOR 


TYPE PROGRAM NAME 




THE NAME 


OF THE PROGRAM 


IF FIRST PASS 


INC 


#-1 


; ;FIRST TIME? 


BNE 


HERE 


; ; BRANCH IF NO 


CMP 


#$ENDAD,P#42 


; jACT-ll? 


BEG 


HERE 


; ; BRANCH IF YES 


TYPE 


, MSG ID 


; ; TYPE ASCIZ STRING 


GET VALUE FOR SOFTWARE 


SWITCH REGISTER 


TST 


9#42 


; ; ARE WE RUNNING UNDER XXDP/ACT? 


BNE 


67$ 


; ; BRANCH IF YES 


CMP 


SWR , # SWREG 


; ; SOFTWARE SWITCH REG SELECTED? 


BNE 


68$ 


; ; BRANCH IF NO 


GTSWR 




; ; GET SOFT-SWR SETTINGS 


BR 


68$ 




MOVB 


#l,$AUTOB 


; ;SET AUTO-MODE INDICATOR 


BR 


HERE 


; ; GET OVER THE ASCIZ 



.ASCIZ <CRLF>/MAINDEC-11-DZTAC-C/<CRLF> 



.SBTTL 



67$: 
68S: 

;MSGID: 
HERE: 

THE CONTENTS OF R5 DETERMINES WHAT WILL BE DONE 

R5=3 MANUAL OPERATIONS 

R5s2 ASK FOR DRIVE(S) AND ADDRESSES (TACS AND VECTOR) 

R5=l ASK FOR DRIVE(S) 

R5=0 DON'T ASK FOR ANYTHING 



BEGINX: MOV R5,P4 

DEC R5 

BLT CHKADR 

JSR PC,ia#ASKDRV 

DEC R5 

BLT CHKADR 

JSP PC,0#ASKADR 

I j 



COPY R5 

ASK FOR DRIVES? 
BR IF NO 

GO GET DRIVES TO BE TESTED 
ASK FOR ADDRESSES? 
BR IF NO 

GO GET TA11 ADDRESSES 



f CHECK THAT "TACS" WILL RESPOND TO ADDRESSING 

; I. TIMEOUT OCCURRED 

j A. TYPE ERROR MESSAGE 

; B. EXAMINE R4 

; 1 . R4>0 GOTO BEGINX 

; 2, P4=0 EXAMINE (42) 

; A. (42)=0 GOTO BEGINX 

; B, (42)>0 GOTO SENDAD 



TA11 MANUAL INTERVENTION TEST MAINDEOl 1 -DZTAOC 
DZTACC.NEW GET VALUE FOR SOFTWARE SWITCH REGISTER 
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SEQ 0028 



570 










TIMEOUT 


DIDN'T OCCUR 




571 








1 


A * CONTINUE 




572 
















573 










574 


001752 


012737 


001770 000 


004 CHKADR: 


MOV 


#1$,8SERRVEC 


{IN CASE OF TIMEOUTS 


575 


001760 


005000 






CLR 


R0 


{USE AS A SWITCH 


576 


001762 


005777 


177220 




TST 


PTACSL 


{ SEE IF TA11 RESPONDS 


577 


001766 


000402 






BR 


2$ 


; BR IF NO TIMEOUT 


578 


001770 


005200 




i$S 


INC 


R0 


fCOME HERE ON TIMEOUT 


579 


001772 


022626 






CMP 


(SP)+# (SP)+ 


{CLEANUP THE STACK 


580 


001774 


012737 


000006 000 


004 2$: 


MOV 


IERRVEC + 2 f {MERRVEC 


; RESTORE TIMEOUT VECTOR 


581 


002002 


005700 






TST 


R0 


;DID A TIMEOUT OCCUR? 


582 


002004 


001412 






BEQ 


3$ 


; BR IF NO 


583 


002006 


104201 






ERROR 


201 


{TAli FAILED TO RESPOND 


584 


002010 


012705 


000002 




MOV 


#2,R5 


{DRIVES S, ADDRESSES 


585 


002014 


005704 






TST 


R4 


{OPERATOR INPUTS? 


586 


002016 


001344 






BNE 


BEGINX 


f BR IF YES 


587 


002020 


013700 


000042 




MOV 


P#42,P0 


{ GET MONITOR RETURN ADDRESS 


588 


002024 


001741 






BEQ 


BEGINX 


j BR IF NO MONITOR 


589 


002026 


000137 


006014 




JMP 


WENDAD 


{GO TO END 


590 


002032 






3SI 
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DZTACC. 


NEW 


GET VALUE FOR 


591 








592 








593 








594 








595 








596 








597 








598 








599 








600 








601 








602 








603 








604 








605 








606 








607 








608 
609 








610 








611 








612 


002032 


012700 


001224 


613 


002036 


004737 


010654 


614 


002042 


000410 




615 


002044 


116010 


000001 


616 


002050 


001412 




617 


002052 


004737 


010654 


618 


002056 


000407 




619 


002060 


005010 




620 


002062 


000405 




621 


002064 


005200 




622 


002066 


004737 


010654 


623 


002072 


000401 




624 


002074 


105010 




625 


002076 


012700 


001224 


626 


002102 


010037 


001230 


627 


002106 


121060 


000001 


628 


0021 12 


001002 




629 


002114 


105060 


000001 


330 


002120 


005710 




631 


002122 


001401 




632 


002124 


000412 




633 


002126 


104202 




634 


002130 


012705 


000002 


63S 


002134 


005704 




636 


002136 


001274 




637 


002140 


013700 


000042 


638 


002144 


001671 




639 


002146 


000137 


006014 


64@ 


002152 


020427 


000003 


641 


0021S6 


001002 




642 


002160 


016704 


17S613 


643 


002164 


010437 


001232 


644 


002170 


000405 




S4§ 


002172 


104401 


001702 


646 


003176 


012737 


001224 



MAKE SURE THE DRIVES IN THE DRIVE TABLE CAN BE TESTED 

I . DESIRED DRIVES CAN NOT BE TESTED 

A, TYPE ERROR MESSAGE 

B, EXAMINE R4 

1 . R4>0 GOTO BEGINX 
?. P4 = EXAMINE (42) 

A. (423=0 GOTO BEGINX 

B. (42)>0 GOTO SENDAD 

II . BOTH DRIVES IN THE TABLE BUT ONLY ONE OF THEM CAN BE TESTED 

A. CLEAR BAD DRIVE FROM THE DRIVE TABLE 

B. CONTINUE IN PROGRAM 

III. DESIRED DRIVE(S) CAN BE TESTED 
A. CONTINUE IN PROGRAM 



CHKDRV: 



MOV 


#DRVKEY f R0 


{PICKUP ADDRESS OF ASCII DRIVE KEY 


JSR 


PC, a#EXAM 


;GO EXAMINE FIRST DRIVE 


BR 


IS 


j OK TO TEST GO CHECK NEXT 


MOVB 


1 (R0) , (R0) 


; REPLACE 1ST WITH 2ND 


BEQ 


2S 


1 BR IF NO 2ND DRIVE SELECTED 


JSR 


PCSSEXAM 


;GO EXAMINE DRIVE 


BR 


2S 


;OK TO TEST 


CLR 


(R0 3 


; CLEAR DRIVE CODES 


BR 


2S 




INC 


R0 


;POINT TO 2ND 


JSR 


PC,fl»EXAM 


{GO EXAMINE DRIVE 


BR 


2$ 


{OK TO TEST 


CLPB 


(R0) 


{CLEAR 2ND 


MOV 


#DRVKEY,R0 


; RESET ADDRESS POINTERS 


MOV 


R0,a«DRVPNT 




CMPB 


(R0),HR0) 


{1ST s 2ND? 


BNE 


3S 


J BR IF NO 


CLRB 


1(R0) 


|YES»-«CLEAR 2ND 


TST 


(R0) 


j ANY DRIVES? 


BEQ 


SS 


{ BR IF NO 


BP 


MANUAL 




ERROR 


202 


{NO DRIVES AVAILABLE 


MOV 


M*R§ 


{DRIVES & ADDRESS 


TST 


R4 


{OPERATOR INPUTS? 


BNE 


BEGINX 


f BR IF YES 


MOV 


0«42,R0 


{ GET MONITOR RETURN ADDRESS 


BEQ 


BEGINX 


{NO MONITOR 


JMP 


S8IENDAD 


{GO TO END 


CMP R4 


#3 




BNE 


OK 




MOV 


«1,R4 




MOV 


R4,®#ASKKE¥ 




BR 


START 




TYPE 


,MSGID 


{POWER FAIL RESTART 


MOV 


#DRVKEY,a*DRVPNT 
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§g@ 003i 



III 


001104 


0i 3777 


®§12SS0 


1 77004 


§MRT f 


MOV 


$#T&vi!e*3 « st&vm 


t&ETUH Till VECTOR 


648 


0032 I 2 


001077 


1 77002 






CLR 


IT&VEC*! 




&4f 


0022 1 6 


012737 


000 340 


177776 




MOV 


Sf "9 17 # » c w 


j LOCKOUT ALL I/O INT 


810 


002214 


81 3704 








MOV 






1 




Bi 1705 


00 1212 






MOV 


8* if A#tJ>/i?u? Inyo 




iS2 


002234 


00S7 37 








TST 


S 1 # <9 lr 


.TP f T RAT D&AA AVTIID P*OB EXTRA LONG 


631 


ft? ft (E ** <7 


ma t a a % 








BNE 


| | 


« OTHPRWT AP OAS' Of,B VATjUPA 


654 


002242 


01 2737 


077777 


0067 32 




MOV 






695 




005037 


00I 




1 $ i 


CLR 


at ATATNM 

8» ff » loll'" 


t 7FR0 THT TF AT MllMRPR 


6§6 


002254 


E/V3u 10 3 








CLR 


DRIVE 


t AFT OR T VF TO «1" 




002256 




001 230 






MOV 


a i drvpnt . ut 


t fIFT DRTVF POTNTFR 


658 


002262 


^21127 








CMPB 


(Rl ) t # *A 


. re it ne t vf ut"? 


6§9 


8/ V A £ © 


00 1402 












■us tf YFe 


660 


007970 


01 2703 


10 iy (0 ** ?y %j 






MOV 


# UN I T , DRIVE 


f SET DRIVE TO H B N 




002274 








TDR Vf 










00227 4 


4 Ct A Ad 4 


\0\o 1 Sv 4 






TYPF 


,CCC .a T VPS* 


«ef TT <5f BTHfl 
tSL X Ci SlKluu 


& a 




acta a 1 4 

0K/49 4 A I 












uvtp inc. Holii 












% % 65S S 


* 








002324 








64$ S 










002 324 


112167 


176704 














0023 30 




001 234 






•FYPF 


flu KUK ¥ 




A H 




1 iff 440 1 


001 1 77 






TVDJT 




. TVD6* h C D C. T.F 


AAQ 


I010Z J 4 (0 










TCTB 

Iwf 




• T. A «1T DRTVF RFFN SFfiFfTFR 






act 4 aa 










IS 


,bd T F Nfi 
7 or 1 r wu 


67 1 


a CIO 1 A A 
vXJ t 3 4 4 




act 1 1 a 

10 K> i l £ 4 






Mf!V 


IVSV fvC< IlPl 


• DITCPf nDTVF DfSTMTFR 


672 




010137 


001 230 




IS! 


Mnu 


D4 A^nDUDIil 1 ? 

K 1 # f SUKVrW i 


.cavc noTvi? on tmtcd cod nfyt t tmf 
|davci uki vCi ruin 1 c rv run nt* J. unt 






005737 


00 1232 






TST 




}G0 START TESTING IF NO MANUAL 


674 


10 S0 £ ^ O 10 










BGE 


2$ 


• OPERATIONS REQUESTED 


675 




aasaaa 

£71031010 40 










R0 






002 364 


aaaaaa 








HALT 




•GIVE CONTROL TO THE OPERATOR 


677 


009 3 Aft 


022767 


000 17 6 


176544 




CMp 


# SWREGj, SWR 


•USING S/ W SWITCH REG? 






ail « i>a 1 










20S 


• Nflm cw miT 

J flu" Ubl UUl 




002376 


4 a a A cm 

1 $0 % *s ft? 3 








GTS WR 




, Ubi VAIJUw 




50*0 £ 














; LU" I in Ut 


1 










. THT S 
J THIS 


CODL I 5 


pad jcti 4 t nnn 




682 


Ota O A OSOi 


0057 37 


(A C*, in (S A '} 

10101010 4 i 












683 


002404 


001 406 








BEQ 


TST1 


• GO START TESTING IF NO 


684 


002406 


010314 








MOV 


DRIVE. PTACS 


; IF YES SELECT DRIVE 


685 


002410 


112714 


000017 






MOVB 


#REWINDlGO,PTACS 


; SEND TAPE TO BOT 


686 


002414 


032714 


000040 




3SS 


BIT 


9 READY » PTACS 


; WAIT ON READY 


687 


002420 


001775 








BEQ 


3S 


; FALL THRU IF READY=1 
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DZTACC.NEW 


GET VALUE FOR SOFTWARE 


SWITCH 


REGISTER 




688 










1 ////////////////////////////////////////////////////////////////////// 


689 










',////////////////////////////////////////////////////////////////////// 


690 












691 










jTHIS 


ISN'T A 


REAL TEST BUT A SMALL ROUTINE TO DETERMINE THE MAX, 


692 










; TIME 


FOR THE 


WAIT LOOPS (WAIT FOR "READY" AND "TRANSFER REQUEST" ) 


693 












694 










;*TEST 


1 


ROUTINE TO DETERMINE TIME OF WAIT LOOPS 


695 












696 


002422 


000004 






TST1 : 


SCOPE 




697 


002424 


012767 


000001 


176534 




MOV 


#1,STIMES ; ;D0 1 ITERATION 


698 


002432 


005737 


001100 






TST 


MSPASS ; IS THIS THE FIRST PASS? 


699 


002436 


001021 








BNE 


TST2 ; ; BR IF NO 


700 


002440 


000005 








RESET 




701 


002442 


010314 








MOV 


DRIVE, «TACS ; SELECT THE DRIVE 


702 


002444 


112714 


000017 






MOVB 


•REWIND. GO, BTACS ; START A REWIND 


703 


002450 


104412 








WAITREADY ;WAIT FOR READY 


704 


002452 


1 12714 


000001 






MOVB 


#WFGJGO,aTACS ; WRITE A FILE GAP 


705 


002456 


104412 








WAITREADY ? WAIT ON READY 


706 


002460 


163737 


006706 


006732 




SUB 


P#HGHTIM,a#MAXCNT ; GET THE TIME IT TOOK 


707 


002466 


005237 


006732 






INC 


a#MAXCNT ; MAKE IT BIGGER 


708 


002472 


0061 37 


006732 






ROL 


MMAXCNT 


709 


002476 


006137 


006732 






ROL 


P3MAXCNT 


710 










• • 


711 










?*TEST 


2 


SETUP FOR MANUAL INTERVENTION 


712 










• • ##-afr#«#«S"&#### 


713 


002502 


000004 






TST2: 


SCOPE 




714 


002504 


012767 


000001 


176454 




MOV 


#1,$TIMES ; jDO 1 ITERATION 


715 


002512 


005767 


176362 






TST 


SPASS ? IS THIS THE FIRST PASS? 


716 


002516 


001053 








BNE 


TST3 ; ;SKIP TYPE OUT IF YES 


717 


002520 


104401 


002526 






TYPE 


,65$ ; ; TYPE ASCIZ STRING 


718 


002524 


000423 








BR 


64$ ; ; GET OVER THE ASCIZ 


719 










; ;65$: 


aASCIZ 


<15><12>"DIPECTI0NS WILL BE TYPED ON THE TTY M 


720 


002574 








64S! 






721 


002574 


104401 


002602 






TYPE 


,67$ ; ; TYPE ASCIZ STRING 


722 


002600 


000422 








BR 


66$ ; ; GET OVER THE ASCIZ 


723 










; ?67$: 


.ASCIZ 


<15><12>"HIT *CR' WHEN READY TO CONTINUE" < 1 5>< 1 2> 


724 


002646 








66S; 






725 










• • 




726 










;*TEST 


3 


SETUP FOR POWER DOWN TU60 TEST 


727 










f j »•»#■» 




728 


002646 


000004 






TST3S 


SCOPE 




729 


002650 


012767 


000012 


176310 




MOV 


#10.,STIMES ; ?D0 10. ITERATIONS 


730 


002656 


012767 


002700 


176222 




MOV 


#1$,$LPADR ; ;SET SCOPE LOOP ADDRESS 


731 


002664 


004037 


007436 






JSR 


R0,98ASKQUES 


732 


002670 


012674 








MTUPWR 




733 


002672 


000402 








BR 


1$ ;D0 THIS TEST 


734 


002674 


000137 


003120 






JMP 


?*TST6 j SKIP POWER FAIL TESTS 


735 


002700 


000005 






is: 


RESET 


; CLEAR INTERFACE 


736 


002702 


010314 








MOV 


DRIVE, ©TACS > SELECT DRIVE 


737 


002704 


032714 


001000 






BIT 


•OFFLINE, BTACS ;IS "OFFLINE" ON A ONE? 


738 


002710 


001001 








BNE 


TST4 ; > BR IF YES 


739 


002712 


104001 








ERROR 


1 ; "OFFLINE" BIT ISN'T ON A ONE 


740 












741 










;*TEST 


4 


TEST "OFFLINE" WHEN TU60 IS POWERED DOWN 


742 










1 


743 


002714 


000004 






TST4 : 


SCOPE 
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DZTACC.NEW T4 TEST "OFFLINE" WHEN TU60 IS POWERED DOWN 



SEQ 0032 



744 


002716 


012767 


003062 


176244 




MOV 


#TST5,$ESCAPE 


} ESCAPE TO TEST 5 ON ERROR 


745 


002724 


112714 


000001 






MOVB 


* WFG J GO f PTACS 


i TRY TO DO A " WFG" 


746 


002730 


104412 








WAITREADY 


;WAIT IN "READY" 


747 


002732 


005714 








TST 


PTACS 


; CHECK FOR AN "ERROR" 


748 


002734 


100401 








BMI 


1$ 


; BR IF "ERROR"=l 


749 


002736 


104001 








ERROR 


1 


;"ERROR"s0 


750 


002740 


112714 


000003 




IS: 


MOVB 


♦WRITE1GO, PTACS 


; TRY TO DO A "WRITE" 


751 


002744 


104412 








WAITREADY 


;WAIT ON "READY" 


752 


002746 


005714 








TST 


PTACS 


;CHECK ERROR FLAG 


753 


002750 


100401 








BMI 


2S 




754 


002752 


104001 








ERROR 


1 


; " ERROR " =0 


755 


002754 


112714 


000005 




2Ss 


MOVB 


#READ! GO, PTACS 


; TRY TO DO A "READ" 


756 


002760 


104412 








WAITREADY 


;WAIT ON "READY" 


757 


002762 


005714 








TST 


PTACS 


;CHECK ERROR FLAG 


758 


002764 


100401 








BMI 


3$ 




759 


002766 


104001 








ERROR 


1 


; " ERROR " =0 


760 


002770 


112714 


000007 




3$s 


MOVB 


♦BSFGIGO, PTACS 


; TRY TO DO A "BSFG" 


761 


002774 


104412 








WAITREADY 


; WAIT ON "READY" 


762 


002776 


005714 








TST 


PTACS 


; CHECK ERROR FLAG 


763 


003000 


100401 








BMI 


4$ 




764 


003002 


104001 








ERROR 


1 


; "ERROR=0 


765 


003004 


112714 


000011 




4$: 


MOVB 


• BSBG 1 GO , PTACS 


TRY TO DO A "BSBG" 


766 


003010 


104412 








WAITREADY 


;WAIT ON "READY" 


767 


003012 


005714 








TST 


PTACS 


;CHECK ERROR FLAG 


768 


003014 


100401 








BMI 


5$ 




769 


003016 


104001 








ERROR 


1 


; "ERROR"s0 


770 


003020 


112714 


000013 




5$: 


MOVB 


#SFFG1G0, (STAGS 


; TRY TO DO A "SFFG" 


771 


003024 


104412 








WAITREADY 


; WAIT ON "READY" 


772 


003026 


005714 








TST 


PTACS 


;CHECK ERROR FLAG 


773 


003030 


100401 








BMI 


6$ 




774 


003032 


104001 








ERROR 


1 


; "ERROR"=0 


775 


003034 


112714 


000015 




6$: 


MOVB 


♦SFBG1GO, PTACS 


; TRY TO DO A "SFBG" 


776 


003040 


104412 








WAITPEADY 


;WAIT ON "READY" 


777 


003042 


005714 








TST 


PTACS 


;CHECK ERROR FLAG 


778 


003044 


100401 








BMI 


7S 




779 


003046 


104001 








ERROR 


1 


• "ERROR" = 


780 


003050 


112714 


000017 




7$: 


MOVB 


♦REWIND! GO, PTACS 


; TRY TO DO A REWIND 


781 


003054 


005714 








TST 


PTACS 


; CHECK ERROR FLAG 


782 


003056 


100401 








BMI 


TST5 


j BR IF ERROR=i 


783 


003060 


104001 








ERROR 


1 


; "ERROR"s0 


784 










• | *#♦«*#*##***»#*#**#*#*###»♦###**#***»**#******»*♦#♦»#«•#♦*»»»♦#* 


785 










;*TEST 


5 


POWER UP THE TU6fc 


5 


786 










• • ♦*#*#*#*#»*«#*♦»*#*#**♦**♦#*#♦*»#**##*****###♦#****#»****#»#**# 


787 


003062 


000004 






TST5 : 


SCOPE 






788 


003064 


012767 


003104 


176014 




MOV 


#2$,$LPADR 


;SET SCOPE LOOP ADDRESS 


789 


003072 


004037 


007436 






JSR 


R0,iSASKQUES 




790 


003076 


012714 








MPWRUP 




; MESSAGE POINTER 


791 


003100 


000240 








NOP 






792 


003102 


000005 






is: 


RESET 






793 


003104 


010314 






2S5 


MOV 


DRIVE, PTACS 


; SELECT DRIVE 


794 


003106 


104412 








WAITREADY 


; WAIT ON READY 


795 


003110 


032714 


001000 






BIT 


♦OFFLINE, PTACS 


;DID OFFLINE CLEAR? 


796 


003114 


001401 








BEQ 


TST6 ; 


; BR IF YES 


797 


003116 


104001 








ERROR 


1 


; OFFLINE s 1 


798 












799 










;*TEST 


6 


TEST "OFFLINE" WHEN DRIVE IS EMPTY 
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DZTACC.NEW 


T6 


TEST "OFFLINE" 


WHEN DRIVE IS EMPTY 




800 












801 


003120 


000004 






TST6 : 


SCOPE 






802 


003122 


012767 


003146 


175756 




MOV 


#2$,$LPADR ; 


;SET SCOPE LOOP ADDRESS 


803 


003130 


004037 


007436 






JSR 


R0, fMASKQUES 




804 


003134 


012732 








MOFFLN 




; MESSAGE POINTER 


805 


003136 


000402 








BR 


1$ 


;DO TEST 


806 


003140 


000137 


003224 






JMP 


P»TST10 ; 


SKIP THIS TEST 


807 


003144 


000005 






1$: 


RESET 




; CLEAR THE WORLD 


808 


003146 


010314 






2S: 


MOV 


DRIVE, PTACS 


; SELECT DRIVE 


809 


003150 


042714 


001000 






BIC 


♦OFFLINE, PTACS 


; TRY TO CLEAR OFFLINE INDICATION 


810 


003154 


032714 


001000 






BIT 


♦ OFFLINE, PTACS 


; TEST FOR "OFFLINE" 


811 


003160 


001001 








BNE 


TST7 ; 


; BR IF "OFFLINE"=l 


812 


003162 


104001 








ERROR 


1 


; "OFFL1NE=0 


813 












814 










; »TEST 


7 


PUT DRIVE "ONLINE 




815 












816 


003164 


000004 






TST7 : 


SCOPE 






817 


003166 


012767 


003212 


175712 




MOV 


♦2S,$LPADR ; 


j SET SCOPE LOOP ADDRESS 


818 


003174 


004037 


007436 






JSR 


R0,P#ASKQUES 




819 


003200 


013000 








MTAPE 






820 


003202 


000402 








BP 


IS 


jDO TEST 


821 


003204 


000137 


003224 






JMP 


P#TST10 


SKIP THIS TEST 


822 


003210 


000005 






1$: 


RESET 






823 


003212 


010314 






2S: 


MOV 


DRIVE, PTACS 


; SELECT DRIVE 


824 


003214 


032714 


001000 






BIT 


♦OFFLINE, PTACS 


;IS DRIVE OFFLINE? 


825 


003220 


001401 








BEQ 


TST10 ; 


J BR IF NO 


826 


003222 


104001 








ERROR 


1 


•DRIVE IS OFFLINE 


827 










! ! *«#««*«*«**«**«*«#»«#«*»«***«** 


■»#■»•» 


828 










?*TEST 


10 


PUT DATA ON TAPE 


FOR WRITE LOCK TEST 


829 










! 1 »*#*#####**#♦•»**#*##»#*#♦#**###«##*♦**»♦#*#♦♦##»####**###*#♦♦## 


830 


003224 


000004 






TST10I 


SCOPE 






831 


003226 


012767 


000001 


175732 




MOV 


#1,$TIMES % 


?DO 1 ITERATION 


832 


003234 


012767 


003242 


175726 




MOV 


#1$,$ESCAPE ; 


j ESCAPE TO 1$ ON ERROR 


833 












?##################### 




834 












j HANG 


IN THIS TEST UNTIL 


DATA IS ON TAPE WITH NO ERRORS 


835 


003242 


000005 






is: 


RESET 






836 


003244 


010314 








MOV 


DRIVE, PTACS 




837 


003246 


112714 


000017 






MOVB 


# REWINDS GO, PTACS 




838 


003252 


104412 








WAITREADY 


; WAIT ON READY 


839 


003254 


005714 








TST 


PTACS 


f CHECK FOR ERROR 


840 


003256 


100001 








BPL 


2$ 




841 


003260 


104001 








ERROR 


1 


; "ERROR" s 1 


842 


003262 








2$: 








843 












?WRITE 


A BLOCK OF 6 BYTES 




844 


003262 


012767 


000006 


000014 




MOV 


#6,65$ 


j SETUP FOR 6 BYTES 


845 


003270 


112714 


000003 






MOVB 


♦WRITE1G0#PTACS 


; START A WRITE 


846 


003274 


104413 






64$: 


WAITXFER 


jWAIT ON TRANSFER REQUEST 


847 


003276 


112715 


000377 






MOVB 


♦377,PTADB 


7 LOAD DATA BUFFER 


848 


003302 


005327 








DEC 


(PC)* 


; MORE TO DO? 


849 


003304 


000000 






65$ : 







; NUMBER OF BYTES TO WRITE GOES HERE 


850 


003306 


003372 








BGT 


64$ 


,'BR IF YES 


851 


003310 


104413 








WAITXFER 


j WAIT ON TRANSER REQUEST 


852 


003312 


052714 


000020 






BIS 


♦ILBS, PTACS 


j WRITE CRC 


853 


003316 


104412 








WAITREADY 


; WAIT ON READY 


854 












JWRITE 


A BLOCK OF 6 BYTES 




855 


003320 


012767 


000006 


000014 




MOV 


#6,67$ 


; SETUP FOR 6 BYTES 
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DZTACC , NEW 


T10 


PUT DATA 


ON 


TAPE FOR WRITE LOCK 


TEST 










856 


003326 


112714 


000003 








MOVB 


tf WRITE! GO, PTACS 




; START A WRITE 






857 


003332 


104413 








66$ ! 


WAITXFER 




jWAIT ON TRANSFER REQUEST 






858 


003334 


112715 


000377 








MOVB 


#377,9TADB 




; LOAD DATA BUFFER 






859 


003 340 


005327 










DEC 


CPO + 




; MORE TO DO? 






860 


003342 


000000 








67$ : 









•NUMBER OF BYTES TO WRITE 


GOES 


HERE 


861 


003344 


003372 










BGT 


66$ 




; BR IF YES 






862 


003346 


104413 










WAITXFER 




;WAIT ON TRANSER REQUEST 






863 


003 350 


052714 


000020 








BIS 


#ILBS,9TACS 




;WRITE CRC 






864 


003 354 


104412 










WAITREADY 




jWAIT ON READY 






865 


003356 


112714 


000001 








MOVB 


#WFG!GO,PTACS 




; WRITE A FILE GAP 






866 


003362 


104412 










WAITREADY 




jWAIT ON "READY" 






867 














; WRITE A 


BLOCK OF 6 BYTES 










868 


003 364 


012767 


000006 


000( 


314 




MOV 


#6,69$ 




jSETUP FOR 6 BYTES 






869 


003 372 


112714 


000003 








MOVB 


# WRITE! GO, iTACS 




START A WRITE 






870 


003376 


104413 








68$ S 


WAITXFER 




; WAIT ON TRANSFER REQUEST 






871 


003400 


112715 


000377 








MOVB 


#377,eTADB 




;LOAD DATA BUFFER 






872 


003404 


005327 










DEC 


(PC) + 




; MORE TO DO? 






873 


003406 


000000 








69$ J 









; NUMBER OF BYTES TO WRITE 


GOES 


HERE 


874 


003410 


003372 










BGT 


68$ 




; BR IF YES 






875 


00341 2 


104413 










WAITXFER 




;WAIT ON TRANSER REQUEST 






876 


003414 


052714 


000020 








BIS 


#ILBS,9TACS 




; WRITE CRC 






877 


003420 


104412 










WAITREADY 




; WAIT ON READY 






878 












• 






879 












;*TEST 


11 


TEST "WRITE LOCK" 


WHEN 


AT CLEAR LEADER 






880 




















881 


003422 


000004 








TST11 : 


SCOPE 












882 


003424 


012767 


000001 


175534 




MOV 


#1,$TIMES i 


;DO 1 


ITERATION 






88 3 


0034 32 


012767 


003462 


175446 




MOV 


#1$,$LPADR J 


JSET 


SCOPE LOOP ADDRESS 






884 


003440 


012767 


003772 


175522 




MOV 


#TST12,$ESCAPE ? 


J ESCAPE TO TEST 12 ON ERROR 






885 


003 446 


004037 


007436 








JSR 


R0,§#ASKQUES 




; HAVE OPERATOR SET "WRITE 


LOCK" 




886 


003452 


013021 










MWRTLK 












887 


003454 


000402 










BR 


1$ 




;DO TEST 






888 


003456 


000137 


005716 








JMP 


SSTST22 


SKIP 


WRITE LOCK TESTS 






889 


003462 










i$! 














890 


003462 


000005 










RESET 






jCLEAR ALL 






891 


003464 


010314 










MOV 


DRIVE, gTACS 




; SELECT DRIVE 






892 


003466 


112714 


000017 








MOVB 


#REWIND!GO, PTACS 




;GO TO "BOT" 






893 


003472 


104412 










WAITREADY 










894 


003474 


005714 










TST 


PTACS 




J IS "ERROR " = 1 






895 


003476 


100001 










BPL 


2$ 




J BR IF NO 






896 


003500 


104001 










ERROR 


1 




;"ERROR"=l 






897 


003502 


032714 


020000 






2$: 


BIT 


SLEADER, SPTACS 




;CHECK FOR CLEAR LEADER 






898 


003506 


001001 










BNE 


3$ 




; BR IF ON CLEAR LEADER 






899 


0035 1 


104001 










ERROR 


1 




; REWIND DIDN'T GO TO BOT 






900 


003512 










3$: 














901 


00351 2 


112714 


000000 








MOVB 


IWFG, PTACS 




• LOAD A "WFG" 






902 


0035 1 6 


032714 


010000 








BIT 


KWRTLOCK, PTACS 




; IS "WRITE LOCK ERROR" = " 


1" 




903 


003522 


001001 










BNE 


64$ 




; BR IF YES 






904 


003524 


104001 










ERROR 


1 




• "WRITE LOCK ERROR" NOT EQUAL " 


1" 


905 


003526 










64$: 














906 


003526 


1 12714 


000002 








MOVB 


# WRITE, PTACS 




; LOAD A "WRITE" 






907 


003532 


032714 


010000 








BIT 


*WRTLOCK, PTACS 




; IS "WRITE LOCK ERROR" = " 


1" 




908 


003536 


001001 










BNE 


65$ 




; BR IF YES 






909 


003540 


104001 










ERROR 


1 




; "WRITE LOCK ERROR" NOT EQUAL " 


1" 


910 


003542 










65$ : 














911 


003542 


1 12714 


000004 








MOVB 


# READ, PTACS 




; LOAD A "READ" 
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DZTACC. NEW 


Tl 1 


TEST "WRITE LOCK" WHEN 


AT CLEAR 


LEADER 






912 


003546 


032714 


010000 


BIT 


#WRTLOCK, PTACS 


IS "WRITE LOCK ERROR" = "0" 


913 


003552 


001401 




BEQ 


66$ 


j BR IF YES 




914 


003554 


104001 




ERROR 


1 


; "WRITE LOCK ERROR" 


NOT EQUAL 


915 


003556 




66$: 










916 


003556 


1 12714 


000006 


MOVB 


#BSFG, PTACS 


; LOAD A "BSFG" 




917 


003562 


032714 


010000 


BIT 


fWRTLOCK, PTACS 


; IS "WRITE LOCK ERROR" = "0" 


918 


003566 


001401 




BEQ 


67$ 


;BP IF YES 




919 


003570 


104001 




ERROR 


1 


; "WRITE LOCK ERROR" 


NOT EQUAL 


920 


003572 




67$: 










921 


003572 


1 12714 


000010 


MOVB 


IBSBG, PTACS 


j LOAD A "BSBG" 




922 


003576 


032714 


010000 


BIT 


#WRTLOCK, aiACS 


; IS "WRITE LOCK ERROR" = "0" 


923 


003602 


001401 




BEQ 


68$ 


J BR IF YES 




924 


003604 


104001 




ERROR 


1 


; "WRITE LOCK ERROR" 


NOT EQUAL 


925 


003606 




68$: 










926 


003606 


1 12714 


000012 


MOVB 


#SFFG, PTACS 


; LOAD A "SFFG" 




927 


003612 


032714 


010000 


BIT 


fWRTLOCK, BT ACS 


: IS "WRITE LOCK ERROR" s "0" 


928 


003616 


001401 




BEQ 


69$ 


: BR IF YES 




929 


003620 


104001 




ERROR 


1 


; "WRITE LOCK ERROR" 


NOT EQUAL 


930 


003622 




69$: 










931 


003622 


112714 


000014 


MOVB 


#SFBG, PTACS 


; LOAD A "SFBG" 




932 


003626 


032714 


010000 


BIT 


#WRTLOCK, PTACS 


; IS "WRITE LOCK ERROR" s "0" 


933 


003632 


001401 




BEQ 


70$ 


; BR IF YES 




934 


003634 


104001 




ERROR 


1 


; "WRITE LOCK ERROR" 


NOT EQUAL 


935 


003636 




70$: 










936 


003636 


J 12714 


000016 


MOVB 


SREWIND, PTACS 


; LOAD A "REWIND" 




937 


003642 


032714 


010000 


BIT 


#WRTLOCK, PTACS 


;IS "WRITE LOCK ERROR" a "0" 


938 


003646 


001401 




BEQ 


71$ 


; BR IF YES 




939 


003650 


104001 




ERROR 


1 


j "WRITE LOCK ERROR" 


NOT EQUAL 


940 


003652 




71$: 










941 


003652 


112714 


000000 


MOVB 


8WFG, PTACS 


jCHECK "ERROR" WITH 


"WFG" 


942 


003656 


005714 




TST 


PTACS 


; SAMPLE THE "ERROR" 


BIT 


943 


003660 


100401 




BMI 


72$ 


j BR IF "ERROR" = i 




944 


003662 


104001 




ERROR 


1 


; "ERROR" NOT = 1 




945 


003664 




72$: 










946 


003664 


1 12714 


000002 


MOVB 


♦WRITE, PTACS 


jCHECK "ERROR" WITH 


"WRITE" 


947 


003670 


005714 




TST 


PTACS 


; SAMPLE THE "ERROR" 


BIT 


948 


003672 


100401 




BMI 


73$ 


; BR IF "ERROR" = 1 




949 


003674 


104001 




ERROR 


1 


; "ERROR" NOT s i 




950 


003676 




73$: 










951 


003676 


112714 


000004 


MOVB 


#READ, iTACS 


;CHECK "ERROR" WITH 


"READ" 


952 


003702 


005714 




TST 


3TACS 


; SAMPLE THE "ERROR" 


BIT 


953 


003704 


100401 




BMI 


74$ 


; BR IF "ERROR" a 1 




954 


003706 


104001 




ERROR 


1 


; "ERROR" NOT = 1 




955 


003710 




74$: 










956 


003710 


112714 


000006 


MOVB 


«BSFG, PTACS 


jCHECK "ERROR" WITH 


"BSFG* 


957 


003714 


005714 




TST 


fTACS 


; SAMPLE THE "ERROR" 


BIT 


958 


003716 


100401 




BMI 


75$ 


; BR IF "ERROR" = 1 




959 


003720 


104001 




ERROR 


1 


; "ERROR" NOT s 1 




960 


003722 




75$: 










961 


003722 


112714 


000010 


MOVB 


#BSBG, 9TACS 


;CHECK "ERROR" WITH 


"BSBG" 


962 


003726 


005714 




TST 


PTACS 


; SAMPLE THE "ERROR" 


BIT 


963 


003730 


100401 




BMI 


76$ 


;BR IF "ERROR" = 1 




964 


003732 


104001 




ERROR 


1 


T "ERROR" NOT a 1 




965 


003734 




76$: 










966 


003734 


112714 


000012 


MOVB 


#SFFG, PTACS 


yCHECK "ERROR" WITH 


"SFFG" 


967 


003740 


005714 




TST 


ITACS 


; SAMPLE THE "ERROR" 


BIT 



mi manual intervention test maindec-u-ditaoc macyu 27C73a> h»jun.7s tint page m seq mu 



DITACG 


NSW 


f 1 1 


f lit 8 


WRITE LOCK" WHIN 




LfADf R 








l&i 


001741 


t if 4§l 








SHI 


771 




J BR If "fRiOR® * 1 






§01744 


f §4@§i 








l<RRyF* 






m S 8* fH 85 1% S3 H MAIM m 1 

f IHRwrl NOT IS 1 




f 70 


n\OS t %& 








7711 












f 7 1 


00374© 


1 12/14 








MOVB 


9 Br Bu 1 f iPiLfS 




p CHECK LRRUR " WITH 




972 


003712 


008714 








TST 


PI Awl 




| SAMPLE THE "ERROR" 


BIT 


973 




100401 








0MI 


78S 




« QBS TIB 9 M !fRfl API W «t 4 

pSR IF "ERRyR" ® 1 




974 


S037S6 


104001 








ERROR 






P " ERROR" NOT $ 1 




973 


003760 








7S$1 












976 


003760 


1 12714 


0000S6 






MOVB 


# REWIND* f f ACS 




p CHECK "ERROR" WITH 


"RB.WIND" 


977 


003764 


00S7 1 4 








TST 


PTACS 




P SAMPLfc THIS " ERROR " 


BIT 


978 


003766 


I uvvv I 










79$ 




. Da TP ■ PODrtD H •* a 

P BH X r LRRUR " » 




979 


003770 


S 04001 








ERROR 






p "ERROR" NOT s 




980 


003772 








79SI 












981 












982 










j#TEST 


12 


TEST "WRITE LOCK* 


WITH 


"CRC ERROR" 




983 












984 


003772 


000004 






TST12 J 


SCOPE 










985 


003774 


012767 


004052 


175104 




MOV 


#1$,SLPADR ; 


|SET 


SCOPE LOOP ADDRESS 




986 


004002 


012767 


004332 


175160 




MOV 


#TST13,$ESCAPE j 


? ESCAPE TO TEST 13 ON ERROR 


987 


00401 


000005 








RESET 






;INIT. THE INTERFACE 


988 


00401 2 


010314 








MOV 


DRIVE, PTACS 




; SELECT DRIVE 




989 


004014 


112714 


000017 






MOVB 


#REWINDlGO, PTACS 




j GO TO BOT 




990 


004020 


104412 








WAITREADY 




JWAIT ON READY 




991 


004022 


112714 


000005 






MOVB 


&READJGO, PTACS 




p GET OVER FIRST BLOCK OF DATA 


992 


004026 


10441 3 








WAITXFEP 








993 


004030 


1 057 1 5 








TSTB 


PTADB 




; KNOCK DOWN "XFER REQ" 


994 


004032 


10441 3 








WAITXFER 








995 


004034 


052714 


000020 






BIS 


#ILBS, PTACS 




p SHUT DOWN GENERATE 


CRC ERR 


996 


004040 


104412 








WAITPEADY 








997 


004042 


032714 


040000 






BIT 


#CRCEPR, PTACS 




; IS CRC ERROR FLAGs 1 ? 


998 


004046 


001 00 1 








BNE 


IS 




;BR IF YES 




999 


004050 


1 04001 








ERROR 


1 




j NO CRC ERROR 




1000 


004052 








IS! 












1001 


004052 


112714 


000000 






MOVB 


»WFG, PTACS 




jCHECK "ERROR" WITH 


"WFG" 


1 002 


004056 


0057 1 4 








TST 


PTACS 




; SAMPLE THE "ERROR" 


BIT 


1003 


004060 


1 0040 1 








BMI 


64$ 




; BR IF "ERROR" = 1 




1004 


004062 


1 04001 








ERROR 


1 




; "ERROR" NOT = 1 




1005 


004064 








64$: 












1 006 


004064 


112714 


000002 






MOVB 


9 WRITE, PTACS 




pCHECK "ERROR" WITH 


"WRITE" 


1 007 


004070 


0057 1 4 








TST 


PTACS 




; SAMPLE THE "ERROR" 


BIT 


1008 


004072 


1 0040 1 








BMI 


65$ 




; BR IF "ERROR" = 1 




1009 


004074 


1 04001 








ERROR 


1 




; "ERROR" NOT = 1 




1010 


004076 








65$: 












1011 


004076 


112714 


000004 






MOVB 


8 READ, PTACS 




j CHECK "ERROR" WITH 


"READ" 


1012 


004 102 


0057 1 4 








TST 


PTACS 




•SAMPLE THE "ERROR" 


BIT 


1013 


004 104 


1 00401 








BMI 


66$ 




; BR IF "ERROR" s | 




1014 


0041 06 


104001 








ERROR 


1 




; "ERROR" NOT = 1 




1015 


0041 10 








66$ : 












1016 


004 1 1 


1 12714 


000006 






MOVB 


#BSFG, PTACS 




;CHECK "ERROR" WITH 


"BSFG" 


1017 


004 1 1 4 


005 7 1 4 








TST 


PTACS 




; SAMPLE THE "ERROR" 


BIT 


1018 


004 1 1 6 


1 00001 








BPL 


67$ 




;BR IF "ERROR" = 




1019 


004 1 20 


1 04001 








ERROR 


1 




• "ERROR " NOT s 




1020 


004 1 22 








67$: 
















1 12714 








MOVB 


#BSBG,@TACS 




pCHECK "ERROR" WITH 


"BSBG" 


1022 


004126 


005714 








TST 


PTACS 




; SAMPLE THE "ERROR" 


BIT 


1023 


004130 


100001 








BPL 


68$ 




; BR IF "ERROR" s 
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ZTACC.NEW 


T12 


TEST "WRITE 


LOCK" WITH 


"CRC ERROR" 




1024 


004132 


104001 






ERROR 


1 


; "ERROR" NOT = 


1025 


004134 






68$: 








1026 


0041 34 


112714 


000012 




MOVB 


8SFFG, PTACS 


;CHECK "ERROR" WITH "SFFG" 


1027 


004140 


005714 






TST 


PTACS 


; SAMPLE THE "ERROR" BIT 


1028 


004142 


100001 






BPL 


69$ 


f BR IF "ERROR" = 


1029 


004144 


104001 






ERROR 


1 


; "ERROR" NOT = 


1030 


004146 






69$ : 








1031 


004146 


1 12714 


000014 




MOVB 


*SFBG, PTACS 


f CHECK "ERROR" WITH "SFBG" 


1032 


004152 


005714 






TST 


PTACS 


; SAMPLE THE "ERROR" BIT 


1033 


004154 


100001 






BPL 


70$ 


; BR IF "ERROR" = 


1034 


004156 


104001 






ERROR 


1 


; "ERROR" NOT s 


1035 


004160 






70$ : 








1036 


004160 


1 12714 


000016 




MOVB 


8 REWIND , PTACS 


•CHECK "ERROR" WITH "REWIND" 


1037 


004164 


005714 






TST 


PTACS 


J SAMPLE THE "ERROR" BIT 


1038 


004166 


100001 






BPL 


71$ 


5 BR IF "ERROR" = 


1039 


004170 


104001 






ERROR 


1 


;" ERROR" NOT = 


1040 


004172 






71$: 








1041 


004172 


112714 


000000 




MOVB 


#WFG, PTACS 


; LOAD A "WFG" 


1042 


004176 


032714 


010000 




BIT 


#WRTLOCK, PTACS 


; IS "WRITE LOCK ERROR" = "1" 


1043 


004202 


001001 






BNE 


72$ 


; BR IF YES 


1044 


004204 


104001 






ERROR 


1 


; "WRITE LOCK ERROR" NOT EQUAL 


1045 


004206 






72$: 








1046 


004206 


112714 


000002 




MOVB 


# WRITE, PTACS 


•LOAD A "WRITE" 


1047 


004212 


032714 


01 0000 




BIT 


frWRTLOCK, PTACS 


; IS "WRITE LOCK ERROR" = "1 " 


1048 


004216 


001001 






BNE 


73$ 


; BR IF YES 


1049 


004220 


104001 






ERROR 


1 


; "WRITE LOCK ERROR" NOT EQUAL 


1050 


004222 






73$: 








1051 


004222 


112714 


000004 




MOVB 


8PEAD, PTACS 


•LOAD A "READ" 


1052 


004226 


032714 


010000 




BIT 


#WRTLOCK, PTACS 


; IS "WRITE LOCK ERROR" = "0" 


1053 


004232 


001401 






BEQ 


74$ 


; BR IF YES 


1054 


004234 


104001 






ERROR 


1 


; "WRITE LOCK ERROR" NOT EQUAL 


1055 


004236 






74$: 








1056 


004236 


1 12714 


000006 




MOVB 


SBSFG, PTACS 


; LOAD A "BSFG" 


1057 


004242 


032714 


010000 




BIT 


#WRTLOCK, PTACS 


; IS "WRITE LOCK ERROR" = "0" 


1058 


004246 


001401 






BEQ 


75$ 


; BR IF YES 


1059 


004250 


104001 






ERROR 


1 


; "WRITE LOCK ERROR" NOT EQUAL 


1060 


004252 






75$ : 








1061 


004252 


1 12714 


000010 




MOVB 


#8SBG,@TACS 


; LOAD A "BSBG" 


1062 


004256 


032714 


010000 




BIT 


S WRTLOCK , PTACS 


|IS "WRITE LOCK ERROR" = "0" 


1063 


004262 


001401 






BEQ 


76$ 


; BR IF YES 


1064 


004264 


104001 






ERROR 


1 


; "WRITE LOCK ERROR" NOT EQUAL 


1065 


004266 






76$: 








1066 


004266 


112714 


000012 




MOVB 


8SFFG, PTACS 


; LOAD A "SFFG" 


1067 


004272 


032714 


010000 




BIT 


$ WRTLOCK , PTACS 


; IS "WRITE LOCK ERROR" = "0" 


1068 


004276 


001401 






BEQ 


77$ 


f BR IF YES 


1069 


004300 


104001 






ERROR 


1 


; "WRITE LOCK ERROR" NOT EQUAL 


1070 


004302 






77SS 








1071 


004302 


112714 


000014 




MOVB 


8SFBG, PTACS 


; LOAD A "SFBG" 


1072 


004306 


032714 


010000 




BIT 


#WRTL0CK, PTACS 


pIS "WRITE LOCK ERROR" = "0" 


1073 


004312 


001401 






BEQ 


78$ 


pBR IF YES 


1074 


004314 


104001 






ERROR 


i 


p "WRITE LOCK ERROR" NOT EQUAL 


1075 


004316 






78S1 








1076 


004316 


112714 


000016 




MOVB 


If REWIND, PTACS 


; LOAD A "REWIND" 


1077 


004322 


032714 


010000 




BIT 


« WRTLOCK, PTACS 


pIS "WRITE LOCK ERROR" x "0" 


1078 


004326 


001401 






BEQ 


79$ 


pBR IF YES 


1079 


004330 


104001 






ERROR 


1 


j "WRITE LOCK ERROR" NOT EQUAL 
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MA1NDEC 
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DETACC.NEW 


TI2 


TEST w 


rfRITE LOCK" WITH 


"CRC ERROR" 




1080 


004332 








79S S 








1081 










} } ###4H 








1082 










}*TEST 


13 


TEST "WRITE LOCK" WITHOUT ANY ERRORS 


1083 










}!*»*»< 








1084 


004332 


000004 






TST13: 


SCOPE 






1085 


004334 


012767 


004364 


174S44 




MOV 


#18,$LPADR 


t f SET SCOPE LOOP ADDRESS 


1086 


004342 


012767 


004644 


174620 




MOV 


#TST14,SESCAPE 


; ; ESCAPE TO TEST 14 ON ERROR 


1087 


0043S0 










RESET 






1088 


004352 


010314 








MOV 


DRIVE, PTACS 


i SELECT DRIVE 


1089 


004354 


032714 


067000 






BIT 


• CRCERR I LEADER I FGAP1TIMERR1 OFFLINE, 3TACS J CHECK STATUS 


1090 


004360 


001 401 








BEQ 


i $ 


. BR IF OK TO TEST "WRITE LOCK" 


1091 


004362 


1 04001 








ERROR 


I 


; TAPE ISN'T POSITIONED PROPERLY 


1092 


004364 








IS: 








1093 


004364 


1 1271 4 


000000 






MOVB 


# WFG, ?TACS 


j LOAD A " WFG" 


1094 


004370 


032714 


010000 






BIT 


9 WRTLOCK , MACS 


• ig "WRITE LOCK ERROR" s " 1 " 


1095 


004374 


001001 








BNE 


64$ 


j BR IF YES 


1096 


004376 


104001 








ERROR 




j "WRITE LOCK ERROR" NOT EQUAL " 1 " 


1097 


004400 








64SS 








1098 


004400 


1 12714 


000002 






MOVB 


ft WRITE, MACS 


5 LOAD A "WRITE" 


1099 


004404 


032714 


010000 






BIT 


g WRTLOCK, 9TACS 


. is "WRITE LOCK ERROR" e " 1 " 


1100 


004410 


001001 








BNE 


65$ 


fBR IF YES 


1101 


004412 


104001 








ERROR 




j "WRITE LOCK ERROR" NOT EQUAL " 1 " 


1102 


004414 








6S§! 








1103 


004414 


1 1 2714 


000004 






MOVB 


*RFAn» 8TACS 


• i.ftAn A * RE* Aft * 


1104 


004420 


032714 


010000 






BIT 


# WRTLOCK, STAGS 


f IS "WRITE LOCK ERROR" s "0" 


1105 


004424 


001 401 








BEQ 


66S 


?BR IF YES 


1106 


004426 


104001 








ERROR 




; "WRITE LOCK ERROR* NOT EQUAL "0" 


1107 


004430 








66S2 








1108 


004430 


1 12714 


000006 






MOVB 


8BSFG, 9TACS 


. LOAD A "BSFG" 


1 109 


004434 


032714 


010000 






BIT 


# WRTLOCK, @TACS 


. is "WRITE LOCK ERROR" s "0" 


1110 


004440 


001401 








BEQ 


67$ 


• bp ip YES 


1111 


004442 


104001 








ERROR 


1 


; "WRITE LOCK ERROR" NOT EQUAL "0" 


1112 


004444 








67S s 








1113 


004444 


1 12714 


000010 






MOVB 


#BSBG, PTACS 


. LOAD A "BSBG" 


1114 


004450 


032714 


01 0000 






BIT 


# WRTLOCK, 0TACS 


•IS "WRITE LOCK ERROR" s "0" 


1115 


004454 


001 401 








BEQ 


68S 


;BR IF YES 


1116 


004456 


104001 








ERROR 


1 


* "WRITE LOCK EPROP" NOT EQUAL "0" 


1117 


004460 








68$! 








1118 


004460 


112714 


000012 






MOVB 


SSFFG, iTACS 


• LOAD A "SFFG" 


1 119 


004464 


0327 1 4 


010000 






BIT 


* WRTLOCK, OTACS 


; IS "WRITE LOCK ERROR" s "0" 


1 120 


004470 


001401 








BEQ 


69S 


; BR IF YES 


1121 


004472 


104001 








ERROR 


1 


; "WRITE LOCK ERROR" NOT EQUAL "0" 


1122 


004474 








69$: 








1123 


004474 


112714 


00001 4 






MOVB 


*SFBG,STACS 


; LOAD A " SFBG" 


1124 


004500 


032714 


010000 






BIT 


#WRTLOCK,0TACS 


; IS "WRITE LOCK ERROR" s "0" 


1125 


004504 


001 401 








BEQ 


70S 


; BR IF YES 


1126 


004506 


104001 








ERROR 


1 


; "WRITE LOCK ERROR" NOT EQUAL "0" 


1127 


004510 








70$: 








1 128 


004510 


1 12714 


00001 6 






MOVB 


^REWIND, iTACS 


; LOAD A "REWIND" 


1129 


004514 


0327 1 4 


010000 






BIT 


#WRTLOCK,PTACS 


; IS "WRITE LOCK ERROR" = "0" 


1130 


004520 


001401 








BEQ 


71$ 


J BR IF YES 


1131 


004522 


1 04001 








ERROR 


1 


% "WRITE LOCK ERROR" NOT EQUAL "0" 


1132 


004524 








7 1 s : 








1 133 


004524 


112714 


000000 






MOVB 


#WFG,OTACS 


;CHECK "ERROR" WITH "WFG" 


1134 


004530 


005714 








TST 


gTACS 


; SAMPLE THE "ERROR" BIT 


1135 


004532 


100401 








BMI 


72S 


;BP IF "ERROR" s 1 
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DZTACC.NI 



JEW 


T13 


TEST M 


WRITE LOCK" WITHOUT ANY 


ERRORS 










004534 


104001 








ERROR 


1 






; "ERROR" NOT = i 




004536 








72S : 














004536 


112714 


000002 






MOVB 


SWRITF 


rPTACS 




jCHECK "ERROR" WITH 


"WRITE" 


004542 


005714 








TST 


PTACS 






; SAMPLE THE "ERROR" 


BIT 


004544 


100401 








BMI 


73$ 






; BR IF "ERROR" = 1 




004546 


104001 








ERROR 


1 






; "ERROR" NOT r 1 




004550 








73$: 














004550 


112714 


000004 






MOVB 


#PEAD, 


PTACS 




;CHECK "ERROR" WITH 


"READ" 


004554 


' 005714 








TST 


3TACS 






; SAMPLE THE "ERROR" 


BIT 


004556 


100001 








BPL 


74$ 






5 BR IF "ERROR" = 




004560 


104001 








ERROR 


1 






; " ERROR" NOT s 




004562 








74$: 














004562 


112714 


000006 






MOVB 


*BSFG, 


&TACS 




; CHECK "ERROR" WITH 


"BSFG" 


004566 


005714 








TST 


iTACS 






; SAMPLE THE "ERROR" 


BIT 


004570 


100001 








BPL 


75$ 






I BR IF "ERROR" s 




004572 


104001 








ERROR 


1 






; "ERROR" NOT r 




004574 








75$: 














004574 


1 12714 


000010 






MOVB 


#BSBG, 


#TACS 




; CHECK "ERROR" WITH 


"BSBG" 


004600 


005714 








TST 


0TACS 






; SAMPLE THE "ERROR" 


BIT 


004602 


100001 








BPL 


76$ 






; BR IF "ERROR" = 




004604 


104001 








ERROR 


1 






; "ERROR" NOT = 




004606 








76$: 














004606 


112714 


000012 






MOVB 


SSFFG, 


ITACS 




f CHECK "ERROR" WITH 


"SFFG" 


004612 


005714 








TST 


&TACS 






; SAMPLE THE "ERROR" 


BIT 


004614 


100001 








BPL 


77$ 






; BR IF "ERROR" a 




004616 


104001 








ERROR 








; "ERROR" NOT * 




004620 








77$: 














004620 


112714 


000014 






MOVB 


#SFBG, 


#TACS 




f CHECK "ERROR" WITH 


"SFBG" 


004624 


005714 








TST 


PTACS 






; SAMPLE THE "ERROR" 


BIT 


004626 


100001 








BPL 


78$ 






j BR IF "ERROR" s 




004630 


104001 








ERROR 


1 






; "ERROR" NOT s 




004632 








78$: 














004632 


1 12714 


000016 






MOVB 


#REWIND,0TACS 




)CHECK "ERROR" WITH 


"REWIND" 


004636 


005714 








TST 


9TACS 






; SAMPLE THE "ERROR" 


BIT 


004640 


100001 








BPL 


79$ 






; BR IF "ERROR" * 




004642 


104001 








ERROR 


1 






> "ERROR" NOT s 




004644 








79$: 












































J*TEST 


14 


TEST « 


WRITE LOCK 


" WITH 


FILE GAPsl 












• 














004644 


000004 






TST14: 


SCOPE 












004646 


012767 


004726 


174232 




MOV 


#1$,$LPADR 


j? SET 


SCOPE LOOP ADDRESS 




004654 


012767 


005206 


174306 




MOV 


# TST 15 


,$ESCAPE 


M ESCAPE TO TEST 15 ON ERROR 


004662 


000005 








RESET 








f CLEAR THE INTERFACE 


004664 


010314 








MOV 


DRIVE, 


gTACS 




jt SELECT @TACS 




004666 


1 12714 


000017 






MOVB 


*REWIND1G0,9TACS 








004672 


104412 








WAITREADY 










004674 


1 12714 


000005 






MOVB 


#READ!GO,@TACS 




; START A READ 




004700 


104413 








WAITXFER 










004702 


052714 


000020 






BIS 


#ILBS, 


% TAGS 




;SHUT DOWN 




004706 


104412 








WAITREADY 










004710 


112714 


000013 






MOVB 


#SFFG1G0,PTACS 




?GQ TO THE FILE GAP 




004714 


104412 








WAITREADY 






;WAIT ON "READY" 




004716 


032714 


004000 






BIT 


#FGAP, 


ITACS 




f CHECK FOR FILE GAP 




004722 


001001 








BNE 


1$ 






; BR IF IN A GAP 




004724 


104001 








ERROR 


1 






; FILE GAP = 
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SEQ 0040 



1192 


004726 






IS! 








1193 


004726 


112714 


000000 




MOVB 


* WFG, PTACS 


. LOAD A " WFG" 


1 194 


004732 


032714 


010000 




BIT 


# WRTLOCK, PTACS 


•IS "WRITE LOCK ERROR" s " 1 " 


1 195 


004736 


001001 






BNE 


64$ 


•BR IF YES 


H96 


004740 


104001 






ERPOR 


1 


1 "WRITE LOCK ERROR" NOT EQUAL 


1 197 


004742 






64$ : 








1198 


004742 


112714 


000002 




MOVB 


# WRITE* PTACS 


; LOAD A "WRITE" 


1 199 


004746 


032714 


01 0000 




BIT 


# WRTLOCK, PTACS 


•IS "WRITE LOCK ERROR " = "1" 


1 200 


004752 


001 001 






BNE 


65$ 


•BR IF YES 


1 201 


004754 


1 04001 






ERROR 


I 


• "WRITE LOCK ERROR" NOT EQUAL 


1 202 


004756 






65 S * 








1 203 


004756 


112714 


000004 




MOVB 


8? READ i PTACS 


•LOAD A "READ" 


1 204 


004762 


032714 


01 0000 




BIT 


« WRTLOCK , PTACS 


•IS "WRITE LOCK ERROR" s "0" 


1 205 


004766 


00 1 40 1 








66$ 


• RR T F v r c 


1 206 


004770 


1 0400 1 






ERROR 


1 


• "WRTTF r.flCK FRROR" MOT FOHfll, 


1 207 


004772 






'* 












112714 


YjwxjxtrjKj 




MOVB 


* n err m aTjfc 


•LOAD A " BSFG" 


1 209 


004776 


03271 4 


010000 






# WRTLOCK , PTACS 


• t c n W o T TF T.Of K (TROAD n — h a m 


1210 


005002 


001 401 






BEG 


67$ 


iBD TP vr c 






1 a Ana 1 






C" t\Ur* 




• W liID T TF 1 f\t*K CDDADH ijftf STAIISf 

* nri 1C< LiUV-in tRKUK NU1 LUUAu 


1212 
















1213 


005006 


1 12714 








# BSBG , PTAC S 




1214 


005012 


032714 


010000 




BIT 




■ TQ nucT tf T.Or* K roDno « — nan 


1215 


00501 6 


00 1 401 






BEG 


68$ 


>dd if vr c 

; Or ir Ito 


1216 


005020 


1 0400 1 






ERROR 




• " UR T TF T,Of K FRROR" HflT FOIIfl I, 


1217 


005022 














1218 


005022 


112714 


00001 2 




MOVB 


# SFFG # PTACS 


•LOAD A "SFFG" 


1219 


005026 


032714 


1 0000 




BIT 


# WRTLOCK, PTACS 


. is "WRITE LOCK ERROR" = "0" 


1 220 


005032 


001 401 






BEQ 


69$ 


•BR I F YES 


1221 


005034 


104001 






ERROR 




; "WRITE LOCK ERROR" NOT EQUAL 


1222 


005036 






69$ ! 








122 3 


005036 


112714 


0000 | 4 




MOVB 


#SFBG, PTACS 


•LOAD A " SFBG" 


1224 


005042 


03 2714 


1 0000 






# WRTLOCK • PTACS 


. T c MWRTTF LOCK FRROR » — « 0! M 


1225 


005046 


00 1401 






BEQ 


70$ 


• RR T F YF 


1 226 


005050 


1 0400 1 






ERROR 




•"WRITE LOCK ERROR" NOT EQUAL 


1227 


005052 














1228 


005052 


1 12714 


0000 | g 




MOVB 


#RE WIND, PTACS 


•LOAD A "REWIND" 


1229 


005056 


032714 


1 0000 




BIT 


ff WRTLOC K , OTACS 


iTc "WRTTF l.fifK FRROR " — " a •< 


1230 


005062 


00 1401 






BEG 


7 1 $ 


•BR IF YES 




005064 


1 &aoi& 1 

l VtK/V 1 






ERROR 


1 


• " WR T TF T.nf K FRROR " NOT FOIIfil, 


12 32 


005066 






7 1 $ I 








12 3 3 


005066 


1 12714 


000000 




MOVB 


# WFG, PTACS 


•CHECK "ERROR" WITH "WFG" 


1234 


005072 


0057 1 4 










• CIMpl.F THF "FRROR" RTT 


1235 


005074 


1 0040 1 






BMI 


72$ 


•RR TF "FRROR" — 1 


1236 


005076 


1 04001 






ERROR 




•"ERROR" NOT — 1 


1237 


005 1 00 






7 2$; 








1238 


005 1 00 


I 12714 


000002 




MOVB 


8 W R I T E , PTACS 


•CHECK "ERROR" WITH "WRITE" 


1239 


005104 


0057 1 4 






TST 


PTACS 


•SAMPLE THE "ERROR" BIT 


1 240 


005 1 06 


1 0040 1 






BMI 


7 3$ 


;BR IF "ERROR" = 1 


1241 


005 110 


1 04001 






ERROR 


\ 


; "ERROR" NOT = 1 


1242 


0051 12 






73$ : 








1243 


005112 


112714 


000004 




MOVB 


#READ, PTACS 


; CHECK "ERROR" WITH "READ" 


1244 


0051 16 


005714 






TST 


PTACS 


•SAMPLE THE "ERROR" BIT 


1245 


005120 


100401 






BMI 


74$ 


; BR IF "ERROR" = 1 


1246 


005122 


104001 






ERROR 


1 


; "ERROR " NOT = 1 


1247 


005124 






74S: 
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ZTACC.NEW 


T14 


TEST " 


WRITE LOCK" WITH 


FILE GAP 


si 










1248 


005124 


112714 


000006 






MOVB 


*BSFG, 


PTACS 




;CHECK "ERROR" WITH 


"BSFG" 


1249 


0051 30 


005714 








TST 


PTACS 






; SAMPLE THE "ERROR" 


BIT 


1250 


005132 


100001 








BPL 


75$ 






J BR IF "ERROR" = 




1251 


005134 


104001 








ERROR 


1 






; "ERROR" NOT = 




1252 


005136 








75$: 














1253 


005136 


1 12714 


000010 






MOVB 


#BSBG, 


PTACS 




;CHECK "ERROR" WITH 


"BSBG" 


1254 


005142 


005714 








TST 


PTACS 






; SAMPLE THE "ERROR" 


BIT 


1255 


005144 


100001 








BPL 


76$ 






; BR IF "ERROR" = 




1256 


005146 


S04001 








ERROR 


1 






; "ERROR" NOT = 




1257 


005150 








76$: 














1258 


005150 


1 12714 


000012 






MOVB 


8 SFFG* 


PTACS 




;CHFCK "ERROR" WITH 


"SFFG" 


1259 


005154 


005714 








TST 


PTACS 






; SAMPLE THE " ERROR" 


BIT 


1260 


005156 


100001 








BPL 


77$ 






; BR IF "ERROR" s 




1261 


005160 


104001 








ERROR 


1 






; "ERROR" NOT = 




1262 


005162 








77$: 














1263 


005162 


112714 


000014 






MOVB 


ISFBG, 


PTACS 




;CHECK "ERROR" WITH 


"SFBG" 


1264 


005166 


005714 








TST 


PTACS 






; SAMPLE THE "ERROR" 


BIT 


1265 


005170 


100401 








BMI 


78$ 






;BP IF "ERROR " s 1 




1266 


005172 


104001 








ERROR 


1 






; "ERROR" NOT r 1 




1267 


005174 








78$: 














1268 


005174 


1 12714 


000016 






MOVB 


#REWIND, PTACS 




;CHECK "ERROR" WITH 


"REWIND" 


1269 


005200 


005714 








TST 


PTACS 






; SAMPLE THE "ERROR" 


BIT 


1270 


005202 


100001 








BPL 


79$ 






; BR IF "ERROR" = 




1271 


005204 


104001 








ERROR 


i 






j "ERROR" NOT s 




1272 


005206 








79$: 














1273 










• 






1274 










;*TEST 


15 


TRY WRITING ON 


TAPE WHEN "WRITE LOCKED" 




1275 










• J 


1276 


005206 


000004 






TST15S 


SCOPE 












1277 


005210 


012767 


000001 


173750 




MOV 


#1,$TIMES 


; ;DO 1 


ITERATION 




1278 


005216 


012767 


005266 


173662 




MOV 


g3$,$LPADR 


; ; SET 


SCOPE LOOP ADDRESS 




1279 


005224 


012767 


005362 


173736 




MOV 


*TST16 


,$ESCAPE 


; ; ESCAPE TO TEST 16 ON ERROR 




1280 


005232 


000005 








RESET 








; CLEAR ALL 




1281 


005234 


010314 








MOV 


DRIVE, 


PTACS 




; SELECT DRIVE 




1282 


005236 


112714 


000017 






MOVB 


#REWINDiGO, PTAC 


S 


;GO TO BOT 




1283 


005242 


104412 








WAITREADY 






; WAIT ON READY FLAG 




1284 


005244 


112714 


000005 




1$: 


MOVB 


SREAD ! GO, PTACS 




; START A READ 




1285 


005250 


104413 








WAITXFER 






;WAIT ON "XFER REQ" 




1286 


005252 


052714 


000020 






BIS 


#ILBSr 


PTACS 




;SHUT DOWN 




1287 


005256 


104412 








WAITREADY 






; WAIT ON READY 




1288 


005260 


1 12714 


000015 






MOVB 


#SFBG«GO, PTACS 




jSPACE OVER THE 2ND 


BLOCK 


1289 


005264 


104412 








WAITREADY 






jWAIT ON READY FLAG 




1290 


005266 


000005 






3$: 


v RESET 








; CLEAR ALL FLAGS 




1291 


005270 


010314 








MOV 


DRIVE, 


PTACS 




; SELECT DRIVE 




1292 


005272 


104412 








WAITREADY 






; WAIT ON READY 




1293 


005274 


112714 


000003 






MOVB 


8WPITEI GO, PTACS 




; START A "WRITE" 




1294 


005300 


005001 








CLR 


Rl 






: TIMER 




1295 


005302 


105201 






4$: 


INCB 


Rl 






;COUNT THE COUNTER GIVING 


1296 


005304 


001376 








BNE 


4$ 






"XFER REQ" TIME 


TO SET IF 


1297 




















; IS GOING TO 




1298 


005306 


105714 








TSTB 


PTACS 






;CHECK "XFER REQ" 




1299 


005310 


100001 








BPL 


5$ 






; BR IF IT DIDN'T SET 




1300 


005312 


104001 








ERROR 


1 






; "XFER REQ" SET 




1301 


005314 


104412 






5$S 


WAITREADY 






j WAIT ON READY 




1302 


005316 


005714 








TST 


PTACS 






;CHECK ERROR FLAG 




1303 


005320 


100401 








BMI 


6$ 






; BR IF IT IS SET 
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DZTACC.NEW T15 TRY WRITING ON TAPE WHEN "WRITE LOCKED" 



SEQ 0042 



1304 


005322 


104001 








ERROR 1 




; ERROR ISN'T SET 


1305 


005324 


1 1271 4 


000017 




6$: 


MOVB #REWIND!GO/TMLACS 




;GO TO BOT 


1 306 


005330 


104412 








WAI TREAD Y 




;WAIT ON READY FLAG 


1307 


005332 


01 2701 


000002 






MOV *2,R1 




; GET OVER THE TWO DATA BLOCKS 


1308 


005336 


1 12714 


000005 




7$: 


MOVB #READ!GO,9TACS 




; START A READ 


1309 


005342 


005301 








DEC Rl 




;COUNT THIS BLOCK 


1310 


005344 


002405 








BLT 8$ 




; BR IF OVER THE 2ND BLOCK? 


1311 


005346 


104413 








WAITXFER 




;WAIT ON "XFER REQ" 


1312 


005350 


052714 


000020 






BIS #ILBS,?TACS 




;SHUT DOWN 


1313 


005354 


104412 








WAITREADY 




; WAIT ON READY 


1314 


005356 


000767 








BR 7$ 




;GO DO ANOTHER BLOCK 


1315 


005360 


104412 






8$ i 


WAITREADY 




; IF " XFER REQ" COMES UP THERE 


1316 
















; IS MORE THAN TWO BLOCKS ON TAPE 


1317 
















; "WRITE" CAUSED DATA TO BE WRITTEN 


1318 


















1319 










•♦TEST 


16 TRY " WFG" WHEN WRITE 


LOCKED 


1320 


















1321 


005362 


000004 






TST16: 


SCOPE 






1322 


005364 


012767 


000001 


173574 




MOV # 1 , STIMES ; 


;DO 


1 ITERATION 


1323 


005372 


012767 


005500 


173570 




MOV *TST1 7 , SESCAPE 


;ESCAPF TO TEST 17 ON ERROR 


1324 


005400 


000005 








RESET 






1325 


005402 


010314 








MOV DRIVE/ gTACS 




; SELECT DRIVE 


1326 


005404 


112714 


000017 






MOVB tREWIND ! GO, gTACS 




; GO TO BOT 


1327 


005410 


104412 








WAITREADY 




; WAIT ON READY 


1328 


005412 


112714 


000005 






MOVB #PEAD!GO,aTACS 




; GET PAST THE FIRST BLOCK 


1329 


005416 


104413 








WAITXFER 




; WAIT ON TRANSFER REQ. 


1330 


005420 


052714 


000020 






BIS #ILBS, PTACS 




;SHUT DOWN 


1331 


005424 


104412 








WAITREADY 




•WAIT ON READY 


1332 


005426 


000005 








RESET 




; CLEAR THE WORLD 


1333 


005430 


010314 








MOV DRIVE, OTACS 




; SELECT DRIVE 


1334 


005432 


10441 2 








WAITREADY 




; WAIT ON THE READY FLAG 


1335 


005434 


112714 


000001 






MOVB #WFGJGO,eTACS 




; START A "WFG" 


1 336 


005440 


104412 








WAITREADY 




; WA I T ON READY 


1337 


005442 


1 12714 


000017 






MOVB #REWIND» GO, OTACS 




;GO TO BOT 


1338 


005446 


104412 








WAITREADY 






1339 


005450 


1 12714 


000005 






MOVB # READ J GO, &TACS 




; GET PAST 1ST BLOCK 


1340 


005454 


104413 








WAITXFER 






1 341 


005456 


05271 4 


000020 






BIS *ILBS,STACS 




• SHUT DOWN 


1342 


005462 


104412 








WAITREADY 






1343 


005464 


1 12714 


000005 






MOVB # READ ! GO, @TACS 




;SEE IF 2ND BLOCK IS STILL ON TAPE 


1 344 


005470 


10441 3 








WAITXFER 




; IF READY COMES UP THE "WFG" 


1345 
















; COMMAND WROTE ON THE TAPE 


1346 


005472 


052714 


000020 






BIS 8ILBS, 0TACS 




•SHUT DOWN 


1347 


005476 


104412 








WAITREADY 




; WAIT ON READY 


1348 












1349 










J*TEST 


17 TEST "WFG" ON CLEAR LEADER AND WRITE LOCKED 


1350 












1 351 


005500 


000004 






TST17: 


SCOPE 






1352 


005502 


012767 


000001 


173456 




MOV #1 , STIMES 


JDO 


1 ITERATION 


1 353 


005510 


012767 


005532 


173370 




MOV #1$,$LPADR 


;SET 


SCOPE LOOP ADDRESS 


1 354 


005516 


012767 


005564 


173444 




MOV #TST20, SESCAPE 


;ESCAPE TO TEST 20 ON ERROR 


1 355 


005524 


000005 








RESET 






1356 


005526 


010314 








MOV DRIVE, 3TACS 




; SELECT DRIVE 


1357 


005530 


104412 








WAITREADY 




;WAIT ON THE READY FLAG 


1358 


005532 


112714 


000017 




1SS 


MOVB #REWIND»G0,PTACS 




;GO TO BOT 


1 359 


005536 


104412 








WAITREADY 
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T ACC , NEW 


T17 


1 360 


005540 


1 12714 


1361 


005544 


104412 


1 362 


005546 


00571 4 


1363 


005550 


100 401 


1 364 


005552 


1 04001 


1365 


005554 


032714 


1366 


005560 


001001 


1 367 


005562 


104001 


1368 






1369 






1 370 






1371 


005564 


000004 


1372 


005566 


012767 


1373 


005574 


012767 


1374 


005602 


012767 


1375 


005610 


000005 


1 376 


005612 


010314 


1377 


00561 4 


104412 


1378 


005616 


1 12714 


1 379 


005622 


104412 


1380 


005624 


1 12714 


1381 


005630 


104412 


1382 






1383 


005632 


032714 


1384 


005636 


001001 


1 385 


005640 


104001 


1386 






1387 






1 388 






1389 


005642 


000004 


1 390 


005644 


012767 


1391 


005652 


012767 


1392 


005660 


004037 


1393 


005664 


013040 


1 394 


005666 


000240 


1395 


005670 


000005 


I 396 


005672 


010314 


1397 


005674 


1 12714 


1398 


005700 


10441? 


1399 


005702 


112714 


1400 


005706 


032714 


1401 


005712 


001401 


1402 


005714 


104001 


1403 






1404 






1405 






1406 


005716 


000004 


1407 


005720 


012767 


1408 


005726 


000005 


1409 


005730 


010314 


1410 


005732 


1 12714 


1411 


005736 


104412 


1412 






1413 






1414 






1415 







MOVB tsWFGi GO, 0TACS 
WAITREADY 



; START A "WFG" 
; WAIT FOR READY 
;CHECK ERROR 
; BR IF EPROR= t 
; ERROR ISN'T ON AN ONE 
; CHECK IF STILL ON CLEAR LEADER 
;GO TO THE NEXT TEST IF IT IS 
;NOT ON CLEAR LEADER 

♦TEST 20 TEST "WRITE" WITH WRITE LOCK ON AND AT CLEAR LEADER 



2S: 



TST 

BMi 
ERROR 

BIT 
BNE 
ERROR 



@TACS 

2$ 

1 

8LEADER, 0TACS 
TST20 



TST20 5 



000001 
005610 

005642 



000017 

000003 



173372 
173304 

173360 



SCOPE 

MOV 
MOV 
MOV 
RESET 
MOV 



#1, STIMES 
8l$,SLPADR 
STST21 , SESCAPE 



000012 
005670 
007436 



000000 
01 1000 



173314 

173226 



; ;DO 1 ITERATION 
; ; SET SCOPE LOOP ADDRESS 
; JESCAPE TO TEST 21 ON ERROR 
ISl RESET ; CLEAR THE WORLD 

; SELECT THE DRIVE 
; WAIT ON READY 
;GO TO BOT 

;WAIT TILL READY = 1 
; TRY TO START A WRITE 
; IF TRANSFER REQ. COMES UP 
; THERE IS A PROBLEM WITH WRITE LOCK 
BIT # LEADER , PTACS ; MAKE SURE STILL A CLEAR LEADER 

BNE TST21 ; ; BR IF AT CLEAR LEADER 

ERROR 1 ; TAPE MOVED OFF OF CLEAR LEADER 

♦TEST 21 TEST "WRITE ENABLE" 

; 

TST21 : SCOPE 

; ;DO 10. ITERATIONS 
; ;SET SCOPE LOOP ADDRESS 



DRIVE, STACS 
WAITREADY 

MOVB #REWIND!GO,0TACS 
WAITREADY 

MOVB »WRITEJGO,PTACS 
WAITREADY 



is: 



MOV 
MOV 
JSR 
MLAST 
NOP 
RESET 
MOV 
MOVB 



# 10, , STIMES 
« 1$, SLPADR 
R0, £#ASKQUES 



000001 173240 



DRIVE, gTACS 
#REWIND!GO,<aTACS 
WAITREADY 

MOVB *WFG,3TACS 
BIT SWRTLOCKi OFFLINE, PTACS 

BEQ TST22 J| 

ERROR 1 

• f 

;*TEST 22 END OF TEST CODE 

TST22 * SCOPE 

#1, STIMES ; ;DO 1 ITERATION 



; LOAD A "WFG" COMMAND 
; MAKE SURE THE CASSETTE IS 
"WRITE ENABLED" AND "ON LINE" 



MOV 
RESET 
MOV 
MOVB 



, SBTTL 



DRIVE, 3TACS 
#REWIND!GO, BTACS 
WAITREADY 

END OF PASS ROUTINE 



; SELECT DRIVE 



; •» INCREMENT THE PASS NUMBER (SPASS) 
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SEO 0044 



1416 










»*TYPE " 


END PASS" 




141? 










?#IF THERES A MONITOR GO TO IT 




1418 










s®IF THERE ISN' 


T JUMP TO START 




t 419 










J*IF IT 


IS DESIRED TO HAVE A BELL INDICATE THE "END OF PASS" LOCATION 


1420 










;*SENDMG CAN BE 


CHANGED TO 7, 




1431 
1422 


005740 
















1423 


§05740 


000004 








SCOPE 






1424 


005742 


005067 


173134 








ITSTNM 


hzero the test number 


1425 


005746 


005067 


173214 








STIMES 


i t ZERO THE NUMBER OF ITERATIONS 


1426 


00S7S2 


005267 


173122 








SPAS5 


j t INCREMENT THE PASS NUMBER 


142? 


00S7S6 


04276? 


100000 


173114 




BIC 


#100000#SPASS 


? jDON'T ALLOW A NEG. NUMBER 


142S 


00S764 


00S327 








DEC 


(PC)* 


? ) LOOP? 


1429 


005766 


000001 






SE.OPCT8 




1 




1430 


005770 


003015 










$DOAGN 


UYES 


1431 


005772 


012737 








MOV 


CPC)+#I<PC)+ 


; ; RESTORE COUNTER 


1432 


00S774 


000001 






SENDCTt 


« WORD 


1 




1433 


00S776 


005766 








S fcOPCl 






1434 


006000 


104401 


006033 






TYPE 


,§ENDMG 


j J TYPE "END PASS" 


1435 


006004 


013700 


000042 








@S42»R0 


; > GET MONITOR ADDRESS 


1436 


006010 


001405 








BEQ 


gBG&GN 


; J BRANCH IF NO MONITOR 


1437 


006012 


000005 








RESET 




j f CLEAR THE WORLD 


1438 


006014 


004710 






§£NDADS 


JSR 


PC* CR0) 


nCO TO MONITOR 


1439 


006016 


000240 








NOP 




1 1 SAVE ROOM 


1440 


006020 


000240 








NOP 




; )FOR 


1441 


006022 


000240 








NOP 




,MACT11 


1442 


006024 








SDOAGNl 








1443 


006024 


00013? 








JMP 


PCPCH 


j j RETURN 


1444 


006026 


002204 






SRTNADs 


» WORD 


START 




1443 


006030 


377 


37? 


000 


$£NULL t 


g BYTE 


-1,-1 ,0 


; ; NULL CHARACTER STRING 


1446 


006033 


011 


042412 


042116 


SENOMGS 


.ASCIZ 


<1S><12>/END PASS/ 


1447 


006040 


050040 


05150! 


000123 
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1448 

1449 










. SBTTL 


SCOPE 


HANDLER ROUTINE 




1450 












1451 










;*THIS 


ROUTINE 


CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 


1452 










; * AND LOAD THE 


TEST N UMBER ( STSTNM) INTO THE DISPLAY REG . ( DISPLA Y<7 : 0> ) 


1453 










;*AND LOAD THE 


ERROR FLAG (SERFLG) INTO DISPLAY<1 5 S 08> 


1454 










;*THE SWITCH OPTIONS PROVIDED BY 


THIS ROUTINE ARE: 


1455 










;#SW14s 


1 


LOOP ON TEST 




1456 










5*SW1 Is 


1 


INHIBIT ITERATIONS 


1457 










?#SW09= 


1 


LOOP ON ERROR 




1458 










•■»SW08 = 


1 


LOOP ON TEST IN 


SWR<7:0> 


1459 










;*CALL 








1460 










• * 


SCOPE 


t t SCOPEs 


IOT 


1461 


















1462 


006046 








6SCOPE: 








1463 


006046 


104406 








CKSWF 




; ; TEST FOR CHANGE IN SOFT-SWR 


1464 


006050 


032777 


040000 


173062 


l$: 


BIT 


#BIT14,@SWR 


j f LOOP ON PRESENT TEST? 


1465 


006056 


001111 








BNE 


SOVER 


; ; XES IF SW14=1 


1466 










y»#88#START OF 


CODE FOR THE XOR 


TESTER##### 


1467 


006060 


000416 






SXTSTRS 


BR 


6$ 


; ; IF RUNNING ON THE "XOR" TESTER CHANGE 


1468 
















; JTHIS INSTRUCTION TO A "NOP" (NOP=240) 


1469 


006062 


013746 


000004 






MOV 


§#EPRVEC,-(SP) 


; ;SAVE THE CONTENTS OF THE ERROR VECTOR 


1470 


006066 


012737 


006106 


000004 




MOV 


#5$,§#ERRVEC 


; ;SET FOR TIMEOUT 


1471 


006074 


005737 


177060 






TST 


3*177060 


; ; TIME OUT ON XOR? 


1472 


006100 


012637 


000004 






MOV 


(SP)+,0SERRVEC 


; ; RESTORE THE ERROR VECTOR 


1473 


006104 


000463 








BR 


SSVLAD 


; ;GO TO THE NEXT TEST 


1474 


006106 


022626 






5$! 


CMP 


(SP)*, (SP) + 


; ;CLEAR THE STACK AFTER A TIME OUT 


1475 


006110 


012637 


000004 






MOV 


{ SP) * * @#ERRVEC 


; ; RESTORE THE ERROR VECTOR 


1476 


006114 


000423 








BR 


7S 


; ;LOOP ON THE PRESENT TEST 


1477 


006116 








6$: ;8*«#»END OF CODE FOR THE XOR 


TESTER##«## 


1478 


006116 


032777 


000400 


173014 




BIT 


#BIT08,SSWR 


SfLOOP ON SPEC. TEST? 


1479 


006124 


001404 








BEQ 


28 


; >BR IF NO 


1480 


006126 


127767 


173006 


172746 




CMPB 


§SWR, STSTNM 


fjON THE RIGHT TEST? SWR<7»0> 


1431 


006134 


001462 








BEQ 


SOVER 


J i BR IF YES 


1482 


006136 


105767 


172741 




2SI 


TSTB 


SERFLG 


" f f HAS AN ERROR OCCURRED? 


1483 


006142 


001421 








BEQ 


31 


*, j BR IF NO 


1484 


006144 


126767 


172745 


172731 




CMPB 


SERMAXr SERFLG 


; {MAX, ERRORS FOP THIS TEST OCCURRED? 


1485 


006152 


101015 








BHI 


3$ 


J J BR IF NO 


i486 


006154 


032777 


001000 


172756 




BIT 


8BIT09 p 9SWR 


; ; LOOP ON ERROR? 


1487 


006162 


001404 








BEQ 


4§ 


; ; BR IF NO 


1488 


006164 


016767 


172720 


172714 


7Sl 


MOV 


SLPERR* SLPADR 


% % SET LOOP ADDRESS TO LAST SCOPE 


1489 


006172 


000443 








BR 


SOVER 




1490 


006174 


105067 


172703 




4$s 


CLRB 


SERFLG 


; ; ZERO THE ERROR FLAG 


1491 


006200 


005067 


172762 






CLR 


STIMES 


; ; CLEAR THE NUMBER OF ITERATIONS TO MAKE 


1492 


006204 


000415 








BR 


IS 


; {ESCAPE TO THE NEXT TEST 


1493 


006206 


032777 


004000 


172724 


38 8 


BIT 


SBIT11,PSWR 


; {INHIBIT ITERATIONS? 


1494 


006214 


001011 








BNE 


1$ 


; ;BP IF YES 


1495 


006216 


005767 


172656 






TST 


IPASS 


; {IF FIRST PASS OF PROGRAM 


1496 


006222 


001406 








BEQ 


1$ 


; ; INHIBIT ITERATIONS 


1497 


006224 


005267 


172654 






INC 


SICNT 


; J INCREMENT ITERATION COUNT 


1498 


006230 


026767 


172732 


172646 




CMP 


STIMES, SICNT 


• j CHECK THE NUMBER OF ITERATIONS MADE 


1499 


006236 


002021 








BGE 


SOVER 


; ; BR IF MORE ITERATION REQUIRED 


1500 


006240 


012767 


000001 


172636 


IS! 


MOV 


§1 , SICNT 


; {REINITIALIZE THE ITERATION COUNTER 


1501 


006246 


016767 


000044 


172712 




MOV 


$MXCNT, STIMES 


• ;SET NUMBER OF ITERATIONS TO DO 


1502 


006254 


105267 


172622 




$SVLAD: 


IMCB 


ITSTMM 


SI COUNT TEST NUMBERS 


1503 


006260 


011667 


172622 






MOV 


(SP), SLPADR 


; j SAVE SCOPE LOOP ADDRESS 
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SEQ 0046 



1504 


006264 


011667 


172620 




MOV 


(SP),$LPERR 


1 1 SAVE ERROR LOOP ADDRESS 


1505 


006270 


005067 


172674 




CLP 


SESCAPE 


f| CLEAR THE ESCAPE FROM ERROR ADDRESS 


1506 


006274 


112767 


000001 


172613 


MOVB 


#1,8ERMAX 


; i ONLY ALLOW ONE(l) ERROR ON NEXT TEST 


1507 


006302 


016777 


172574 


172632 


SOVERt MOV 


STSTNM, 9D I SPLAY 


; ;DISPLAY TEST NUMBER 


1S08 


006310 


016716 


172572 




MOV 


SLPADR, (SP) 


FUDGE RETURN ADDRESS 


1509 


006314 


000002 






RTI 




; ;FIXES PS 


1510 


006316 


003720 






SMXCNT: 2000. 




; }MAX. NUMBER OF ITERATIONS 
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1511 








1512 








1513 








1514 








1515 








1516 








1517 








1518 








1519 








1520 








1521 








1522 








1523 








1524 








1525 


006320 






1526 


006320 


104406 




1527 


006322 


01 1437 


001162 


1528 


006326 


011537 


001164 


1529 


006332 


010037 


001124 


1530 


006336 


010137 


001 126 


1531 


006342 


105267 


172535 


1532 


006346 


001775 




1533 


006350 


016777 


172526 


1534 


006356 


032777 


002000 


1535 


006364 


001402 




1536 


006366 


104401 


001172 


1537 


006372 


005267 


172514 


1538 


006376 


011667 


172514 


1539 


006402 


162767 


000002 


1540 


006410 


117767 


172502 


1541 


006416 


032777 


020000 


1542 


006424 


001004 




1543 


006426 


004767 


000060 


1544 


006432 


104401 


001177 


1545 


006436 






1546 


006436 


005777 


172476 


1547 


006442 


100002 




1548 


006444 


000000 




1549 


006446 


104406 




1550 


006450 


032777 


001000 


1551 


006456 


001402 




1552 


006460 


016716 


172424 


1553 


006464 


005767 


172500 


1554 


006470 


001402 




1555 


006472 


016716 


172472 


1556 


006476 






1557 


006476 


022737 


006014 


1558 


006504 


001001 




1559 


006506 


000000 




1560 


006510 






1561 


006510 


000002 




1562 









.SBTTL ERROR HANDLER ROUTINE 

» ♦ 

♦THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
♦ SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
♦AND GO TO TYPERR ON ERROR 

♦THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 



*SWl5sl 
#SW13=1 
♦SW10=1 
♦SW09=1 
♦CALL 



172564 
172554 



172506 
172476 
172514 



20$: 
2$: 



172462 3S: 



HALT ON ERROR 
INHIBIT ERROR TYPEOUTS 
BELL ON ERROR 
LOOP ON ERROR 



ERROR 


N ERROR= 


EMT AND N=ERROR ITEM NUMBER 


CKSWR 




; ; TEST FOR CHANGE IN SOFT-SWR 


MOV 


STACS, 0#$REG0 


;SAVE THE STATUS REG. 


MOV 


fJTADB,e»$REGl 


;SAVE THE DATA BUFFER 


MOV 


R0,P#$GDDAT 


;R0 WILL CONTAIN THE GOOD DATA 


MOV 


R1,3#SBDDAT 


;R1 WILL CONTAIN THE BAD DATA 


INCB 


SERFLG 


; ;SET THE ERROR FLAG 


BEQ 


7$ 


; ;DON'T LET THE FLAG GO TO ZERO 


MOV 


STSTNM, PDISPLAY 


; ^DISPLAY TEST NUMBER AND ERROR FLAG 


BIT 


*BIT10,9SWR 


; ; BELL ON ERROR? 


BEQ 


IS 


; jNO - SKIP 


TYPE 


, SBELL 


; jPING BELL 


INC 


SERTTL 


; fCOUNT THE NUMBER OF ERRORS 


MOV 


(SP),$ERRPC 


; ; GET ADDRESS OF ERROR INSTRUCTION 


SUB 


#2,$ERRPC 




MOVB 


9SERRPC * $ ITEMB 


; JSTRIP AND SAVE THE ERROR ITEM CODE 


BIT 


#BIT13,9SWR 


J f SKIP TYPEOUT IF SET 


BNE 


20$ 


; ;SKIP TYPEOUTS 


JSR 


PC , TYPERR 


; ;GO TO USER ERROR ROUTINE 


TYPE 


t SCRLF 




TST 


9SWR 


; ; HALT ON ERROR 


BPL 


3$ 


; JSKIP IF CONTINUE 


HALT 




; J HALT ON ERROR I 


CKSWR 




; » TEST FOR CHANGE IN SOFT-SWR 


BIT 


#BIT09,§SWR 


; ;LOOP ON ERROR SWITCH SET? 


BEQ 


4$ 


; ; BR IF NO 


MOV 


SLPERR, (SP) 


j ; FUDGE RETURN FOR LOOPING 


TST 


SESCAPE 


; jCHECK FOR AN ESCAPE ADDRESS 


BEQ 


5$ 


; j BR IF NONE 


MOV 


SESCAPE, (SP) 


f I FUDGE RETURN ADDRESS FOR ESCAPE 


CMP 


#$ENDAD,8#42 


j jACT-ll AUTO-ACCEPT? 


BNE 


6S 


; ; BRANCH IF NO 


HALT 




;;YES 


RTI 




; j RETURN 
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SEQ 0048 



1563 










1564 








jTHIS ROUTINE 


WILL TYPEOUT THE 


ERROR MESSAGES 


1565 














1566 


006512 


104401 


001177 


TYPERR: TYPE 


,$CRLF 


; TYPE A CARRIAGE RETURN & LINE FEED 


1567 


006516 


010046 




MOV 


R0,»(SP) 


j SAVE R0 


1568 


006520 


113700 


001114 


MOVB 


P#$ITEMB,R0 


yPICKUP THE ITEM INDEX 


1569 


006524 


005300 




DEC 


R0 


; ADJUST THE INDEX 


1570 


006526 


006300 




ASL 


R0 


;SO IT WILL WORK FOR 


1571 


006530 


006300 




ASL 


R0 


; THE ERROR TABLE 


1572 


006532 


006300 




ASL 


R0 




1573 


006534 


062700 


001236 


ADD 


#$ERRTB,R0 


•FORM THE TABLE POINTER 


1574 


006540 


012067 


000002 


MOV 


(R0)+,1S 


;PICKUP "ERROR MESSAGE" POINTER 


1575 


006544 


104401 




TYPE 




; TYPE "ERROR MESSAGE" 


1576 


006546 


000000 




IS: 




; "ERROR MESSAGE POINTER" GOES HERE 


1577 


006550 


104401 


001177 


TYPE 


,$CRLF 




1578 


006554 


012067 


000004 


MOV 


(R0)+,2$ 


jPICKUP "DATA HEADER" POINTER 


1579 


006560 


001404 




BEQ 


3$ 


•IF "0" DON'T TYPE 


1580 


006562 


104401 




TYPE 




; TYPE "DATA HEADER 


1581 


006564 


000000 




2SI 




; "DATA HEADER" POINTER GOES HERE 


1582 


006566 


104401 


001177 


TYPE 


rSCRLF 




1583 


006572 


012000 




3$: MOV 


(R0)+,R0 


J PICKUP "DATA POINTER" 


1584 


006574 


001004 




BNE 


5$ 


; IF THERE IS DATA TO TYPE GO DO IT 


1585 


006576 


012600 




4$ : MOV 


(SP)+,R0 


; RESTORE R0 


1586 


006600 


104401 


001177 


TYPE 


, SCPLF 


; TYPE A CARRAGE RETURN&LINE FEED 


1587 


006604 


000207 




RTS 


PC 


; RETURN 


1588 


006606 






5$S 






1589 


006606 


01 3046 




MOV 


9(R0)+,-(SP) 


; jSAVE ?(R0)+ FOR TYPEOUT 


1590 












; ; TYPE DATA 


1591 


006610 


104402 




TYPOC 




; ;GO TYPE--OCTAL ASC IK ALL DIGITS) 


1592 


006612 


005710 




TST 


(R0) 


; TERMINATOR? 


1593 


006614 


001770 




BEQ 


4$ 


; BR IF YES 


1594 


006616 


104401 


006624 


TYPE 


, 6$ 


; TYPE 2 SPACES 


1595 


006622 


000771 






5S 


;LOOP 


1596 


006624 


020040 


000 


6$ : .ASCIZ 


/ / 


;ASCII STRING OF 2 SPACES 


1597 




006630 




.EVEN 
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STACC, 


NEW 




ROUTINE TO WAIT 


ON THE 


READY BIT TO SET 




1598 








• • «• 




1599 








jROUTINE TO WAIT ON THE READY BIT 




1600 
1601 


006630 






WAIT. ON. READY: 






1602 


006630 


005067 


000044 




CLR 


WAIT2 


;SETUP MAX. TIME TO WAIT ON "READY" 


1603 


006634 


016767 


000072 000044 




MOV 


MAXCNT, HGHTIM 




1604 


006642 


012637 


001202 




MOV 


(SP) + , (MSAVPC 


; GET THE PC OF THE WAITREADY INSTRUCTION 


1605 


006646 


162737 


000002 001202 




SUB 


#2,8#SAVPC 




1606 


006654 


012637 


001204 




MOV 


(SP)+,§tSAVPS 


;SAVE THE PS 


1607 


006660 


032714 


000040 


WAIT1 : 


BIT 


$ READY, PTACS 


;READY=1? 


1608 


006664 


001013 






BNE 


WAIT3 


;GO ON IF YES 


1609 


006666 


105714 






TSTB 


(3TACS 


jCHECK TRANSFER REQUEST 


1610 


006670 


100002 






BPL 


WAIT4 




161 1 


006672 


104004 






ERROR 


4 


; "TRANSFER REQUEST" SET WHILE WAITING ON "READY" 


1612 


006674 


000407 






BR 


WAIT3 




1613 


006676 


005227 




WAIT4: 


INC 


(PC)* 


;COUNT FAST COUNTER 


1614 


006700 


000000 




WAIT2: 









1615 


006702 


001366 






BNE 


WAIT1 


;GO CHECK "READY" AGAIN 


1616 


006704 


005327 






DEC 


(PC) + 


•COUNT LOOP COUNTER 


1617 


006706 


000000 




HGHTIM; 









1618 


006710 


003363 






BGT 


WAIT1 


;GO LOOP AGAIN 


1619 


006712 


104002 






ERROR 


2 


; "READY" FAILED TO SET 


1620 


006714 


013746 


001204 


WAIT3 : 


MOV 


3#SAVPS,-(SP) 


; GET THE STATUS BACK 


1621 


006720 


013746 


001202 




MOV 


P#SAVPC,»(SP) 


; GET THE PC 


1622 


006724 


062716 


000002 




ADD 


#2, (SP) 




1623 


006730 


000002 






PTI 






1624 


006732 


000000 




MAXCNT: 









1625 
















1626 












1627 








; ROUTINE TO WAIT ON TRANSFER REQUEST 




1628 
1629 


006734 






WAIT. FOR. XFER.REQ: 




1630 


006734 


005067 


000044 




CLR 


2S 


;SETUP WASTE TIME LOOP 


1631 


006740 


013767 


006732 000044 




MOV 


e#MAXCNT,3S 




1632 


006746 


012637 


001202 




MOV 


(SP)+,9*SAVPC 


; GET THE PC OF THE WAITXFER INSTRUCTION 


1633 


006752 


162737 


000002 001202 




SUB 


#2,P#SAVPC 




1634 


006760 


012637 


001204 




MOV 


(5P)+,@#SAVPS 


;SAVE THE PS 


1635 


006764 


105714 




1$: 


TSTB 


9TACS 


; CHECK XFER REQ 


1636 


006766 


100414 






BMI 


4S 


;EXIT IF SET 


1637 


006770 


032714 


000040 




BIT 


If READY, 9TACS 


,'LOOK AT READY 


1638 


006774 


001402 






BEQ 


5$ 


; BR IF "READY" ISN'T SET 


1639 


006776 


104004 






ERROR 


4 


; "READY" SET WHILE WAITING FOR "XFER REQ" 


1640 


007000 


000407 






BR 


4$ 




1641 


007002 


005227 




5$: 


INC 


(PO + 


,'COUNT 


1642 


007004 


000000 




2S: 









1643 


007006 


001366 






BNE 


IS 


; BR IF MORE TO DO 


1644 


007010 


005327 






DEC 


(PC) + 




1645 


007012 


000000 




3$s 









1646 


007014 


003363 






BGT 


1$ 




1647 


007016 


104003 






ERROR 


3 


; "TRANSFER REQUEST" FAILED TO SET 


1648 


007020 


013746 


001204 


4s: 


MOV 


e*sAvps,-(sp) 


; GET THE STATUS BACK 


1649 


007024 


013746 


001202 




MOV 


e#sAvpc,-(sp) 


; GET THE PC 


1650 


007030 


062716 


000002 




ADD 


*2, (SP) 




1651 


007034 


000002 






RTI 




;GO BACK 
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DZTACC.NEW ROUTINE TO WAIT ON TRANSFER REQUEST 



SEQ 0050 



1652 ; j 

1653 



1654 








. SBTTL 




ROUTINE TO ASK 


THE OPERATOR WHAT DRIVE(S) TO TEST 


1655 
















1656 








;CALL 








1657 










JSR 


PC* §# ASKDRV 




1658 








; 


RETURN 




; NOTE ; R0 AND Rl ARE DESTROYED 


1659 
















1660 


007036 


104401 


012552 


ASKDRV : 


TYPE 


t MSGDRV 


;<CRLF>"DRIVE(S)? " 


1661 


007042 


005067 


172156 




CLR 


DRVKEY 




1662 


007046 


104410 






RDLIN 




?GO GET A DRIVE 


1663 


007050 


012600 






MOV 


(SP)+,R0 


; SETUP TO CHECK FOR VALID DRIVE(S) 


1664 


007052 


105710 






TSTB 


@R0 


;WAS A DRIVE SELECTED? 


1665 


007054 


001425 






BEQ 


NOTLGL 


; BR IF NO 


1 666 


007056 


012701 


001224 




MOV 


*DRVKEYr Rl 




1667 


007062 


122710 


000101 


loop : 


CMPB 


# 'A,8R0 


; WAS DRIVE "A" SELECTED? 


1668 


007066 


001002 






BNE 


NOTA 


; BR IF NO 


1669 


007070 


1 12021 






MOVB 


(R0)+, (Rl )♦ 


;SET KEY FOR DRIVE "A" 


1670 


007072 


000411 






BR 


NEXT 




1671 


007074 


122710 


000102 


NOTA: 


CMPB 


#'B,gR0 


; WAS DRIVE "B" SELECTED? 


1672 


007100 


001002 






BNE 


NOTB 


; BR IF NO 


1673 


007102 


112021 






MOVB 


(R0)+, (Rl)+ 


;SET KEY FOR DRIVE "B" 


1674 


007104 


000404 






BR 


NEXT 




1675 


007106 


122710 


000054 


NOTB: 


CMPB 


#54,£R0 


;WAS A COMMA TYPED? 


1676 


0071 12 


001006 






BNE 


NOTLGL 


; BR IF NO 


1677 


007114 


105720 






TSTB 


(R0) + 


;DUMP THE COMMA 


1678 


0071 16 


105710 




next: 


TSTB 


?R0 


; TERMINATOR? 


1679 


007120 


001406 






BEQ 


EXIT 


; BR IF YES 


1680 


007122 


022701 


001226 




CMP 


#DRVKEY+2, Rl 


;TWO DRIVES SELECTED? 


1681 


007126 


101355 






BHI 


LOOP 


; BR IF NO 


1682 


007130 


104401 


001 176 


NOTLGL : 


TYPE 


, $QUES 


; ILLEGAL INPUT DETECTED 


1683 


007134 


000740 






BR 


ASKDRV 


;GO TRY AGAIN 


1684 


007136 


005767 


172062 


EXIT : 


TST 


DRVKEY 


; ANY DRIVE SELECTED? 


1685 


007142 


001772 






BEQ 


NOTLGL 


; BR IF NO 


1686 


007144 


000207 






RTS 


PC 
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1688 
1689 
1690 
1691 



; CALL 

; JSR PC » * ASK ADR 



1692 


007146 


010046 






ASKADR: 


MOV 


R0,»(SP) 






;SAVE R0 


1693 


007150 


104401 


012566 




is: 


TYPE 


, MSGASK 






;"TACS?" 


1694 


007154 


104411 








RDOCT 








; GET VALUE 


1695 


007156 


012600 








MOV 


(SP)+,R0 






fPICK UP THE OCTAL NUMBER 


1696 


007160 


001423 








BEQ 


3$ 






; IF "0" USE OLD VALUES 


1697 


007162 


020027 


160000 






CMP 


R0, #160000 






; MAKE SURE IT IS A BUS ADDRESS 


1698 


007166 


103770 








BLO 


1$ 








1699 


007170 


010037 


001206 






MOV 


R0, 0#TACSL 






;SAVE TOE TACS 


1700 


007174 


062700 


000002 






ADD 


#2,R0 






;STEP TO TADB ADDRESS 


1701 


007200 


010037 


001212 






MOV 


R0, 3ITADBL 






; AND SAVE IT 


1702 


007204 


01 3737 


001206 


001 210 




MOV 


P#TACSL, 9#TACSH 






;SET UP TACS UPPER 


1703 


007212 


005237 


001210 






INC 


§#TACSH 






; BYTE POINTER 


1704 






















1705 


007216 


013737 


001212 


001214 




MOV 


g#TADBL,P#TADBH 






J SET UP TADB UPPER 


1706 


007224 


005237 


001214 






INC 


##TADBH 






; BYTE POINTER 


1707 


007230 


104401 


012576 




3$: 


TYPE 


,MSGVEC 






; "VECTOR?" 


1708 


007234 


10441 1 








RDOCT 










1709 


007236 


012600 








MOV 


(SP)+,R0 








1710 


007240 


001411 








BEQ 


5$ 








1711 


007242 


020027 


001000 






CMP 


R0, »1000 






; MAKE SURE ADDRESS IS IN VECTOR 


1712 


007246 


103370 








BHIS 


3$ 








1713 


007250 


010037 


001216 






MOV 


R0,e#TAVEC 






;SAVE AS VECTOR ADDRESS 


1714 


007254 


062700 


000002 






ADD 


ff2,R0 








1715 


007260 


010037 


001220 






MOV 


R0,0#TAVEC+2 








1716 


007264 


104401 


012606 




5$| 


TYPE 


,MSGPPI 






; ASK FOR PRIORITY 


1717 


007270 


104411 








RDOCT 










1718 


007272 


012600 








MOV 


(SP)+/R0 








1719 


007274 


001413 








BEQ 


6$ 






; IF "0" USE OLD VALUE 


1720 


007276 


020027 


000007 






CMP 


R0,*7 






• MAKE SURE ITS VALID 


1721 


007302 


101370 








BHI 


5$ 








1722 


007304 


000300 








SWAP 


R0 






;PUT INTO HIGH BYTE 


1723 


007306 


006200 








ASR 


R0 






; AND SHIFT 


1724 


007310 


006200 








ASR 


P0 






;INTO PROPER 


1725 


007312 


006200 








ASR 


R0 






POSITION 


1726 


007 314 


042700 


177437 






BIC 


#~C<340>,R0 






;SAVE ONLY PRIORITY BITS 


1727 


007320 


010037 


001222 






MOV 


R0,3#TAPRIO 






? STORE IT AWAY 


1728 


007324 


104401 


012620 




6$: 


TYPE 


,MTACS 






fTACSs" 


1729 


007330 


016746 


171652 






MOV 


TACSL,-CSP) 


: f SAVE 


TACSL FOR TYPEOUT 


1730 


007334 


104402 








TYPOC 




; ; GO 


TYPE--OCTAL ASCI I ( ALL DIGITS) 


1731 


007336 


104401 


012626 






TYPE 


i MTADB 






; M TADBs" 


1732 


007342 


016746 


171644 






MOV 


TADBL, -(SP) 


: ;SAVE 


TADBL FOR TYPEOUT 


1733 


007346 


104402 








TYPOC 




; ;GO 


TYPE--OCTAL ASCIKALL DIGITS) 


1734 


007350 


104401 


012635 






TYPE 


i MTAVEC 






; "VECTORS" 


1735 


007354 


016746 


171636 






MOV 


TAVEC-(SP) 


; ;SAVE 


TAVEC FOR TYPEOUT 


1736 


007360 


104402 








TYPOC 




? J GO 


TYPE—OCTAL ASCIKALL DIGITS) 


1737 


007362 


104401 


012646 






TYPE 


i MTAPRI 






^PRIORITY*" 


1738 


007366 


016746 


171630 






MOV 


TAPPIO,-(SP) 


; jSAVE 


TAPRIO FOR TYPEOUT 


1739 


007372 


104402 








TYPOC 




J J GO 


TYPE— OCTAL ASCIKALL DIGITS) 


1740 


007374 


104401 


012661 






TYPE 


,MSGOK 






;"OK?" 


1741 


007400 


104407 








RDCHR 








;GO READ ONE CHARACTER 


1742 


007402 


012600 








MOV 


(SP)+,R0 






: GET IT 


1743 


007404 


022700 


000015 






CMP 


#15,R0 






; IS IT "CR"? 
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DZTACC.NEW ROUTINE TO INPUT CSR,DBP, AND VECTOR ADDRESS AND PRIORITY 



SEQ 0052 



744 


007410 


001406 




BEG 


71 


f BRANCH IF YES 


745 


007412 


022700 


00013! 


CMP 


#'Y#R0 


t IS IT "Y"? 


746 


007416 


001403 




BEQ 


78 


jIT WAS 


747 


007420 


104401 


001176 


TYPE 


,SQUES 


J TYPE 


748 


007424 


000651 




BR 


18 


; AND LET HIM CORRECT THEM 


749 


007426 


104401 


012667 


7$: TYPE 


i MYES 


; TYPE OUT "YES" 


750 


007432 


012600 




MOV 


CSP)+,R0 


; RESTORE R0 


751 


007434 


000207 




RTS 


PC 


; AND RETURN 
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• j 












• • ■»■ #4M 












; ROUTINE TO TYPE DIRECTIONS TO 


OPERATOR AND WAIT FOR RESPONSE 








;CALL: 












; JSR 


F0,P8ASKQUES 










; RETURN 


HERE ON A RESPONSE OF "Y" 








; RETURN 


HERE ON A RESPONSE OF " N " 


007436 






ASKQUES : 






007436 


010146 




MOV 


R1,~(SP) 


;SAVE Rl 


007440 


012067 




MOV 


CR0)+r2S 


; PICKUP THE MESSAGE POINTER 


007444 


104401 


001177 


TYPE 


f SCRLF 


; TYPE A "CR" AND "LF" 


007450 


104401 




IS: TYPE 




j TYPE THE MESSAGE 


007452 


000000 




2S: 




; MESSAGE POINTER GOES HERE 


007454 


104407 




RDCHR 




; GET ONE CHARACTER FROM THE 


007456 


012601 




MOV 


(SP)+,R1 


; AND PUT IT IN Rl 


007460 


020127 


000015 


CMP 


Rl,#15 


;CHECK THIS CHARACTER 


007464 


001443 




BEQ 


4S 


; BR IF ITS A "CR" 


007466 


020127 


000116 


CMP 


R1,»'N 


;IS IT A "N"? 


007472 


001415 




BEQ 


3$ 


| BR IF YES 


007474 


020127 


000131 


CMP 


Rl,#'Y 


;IS IT A "Y" 


007500 


001007 




BNE 


5S 


j BR IF NOT "Y" 


007502 


104401 


007510 


TYPE 


,65$ 


; ; TYPE ASCIZ STRING 


007506 


000403 




BR 


64$ 


J J GET OVER THE ASCIZ 








;;65$l e ASCIZ 


/ YES/ 




007516 






648 t 






007516 


000426 




BR 


4$ 


;GO TO EXIT 


007520 


104401 


001176 


5SI TYPE 


,$QUES 


; UNKNOWN REQUEST 


007524 


000751 




BR 


IS 


;GO ASK AGAIN 


007526 






3Sl 






007526 


104401 


007534 


TYPE 


# 67S 


; ; TYPE ASCIZ STRING 


007532 


000415 




BR 


66$ 


y J GET OVER THE ASCIZ 








; ;67s: 8 ASCIZ 


# NO»»«SKlPPING 


THIS TEST* 


007566 






66$: 






007566 


005720 




TST 


CR0H 


| STEP OVER "CR" RETURN 


007570 


005037 


001166 


CLR 


§#$TIMES 


; CLEAR ITERATIONS 


007574 


104401 


001177 


4§S TYPE 


i SCRLF 




007600 


012601 




MOV 


(SPH*R1 


I RESTORE Rl 


007602 


000200 




RTS 


R0 


; RETURN 
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SEQ 0054 



1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 



J////////////////////////////////////////////////////////////////////// 
>////////////////////////////////////////////////////////////////////// 
; THE FOLLOWING ROUTINES CAN BE USED TO MAKE ADJUSTMENTS TO THE TU60 
; NOTE : #*# BEFORE USING ANY OF THE ROUTINES LOAD AND START AT 214 •«# 
;////////////////////////////////////////////////////////////////////// 



"bot ! 



WRITE FILE GAPS FROM 
; START AT 220 
jTHIS ROUTINE CAN BE USED 
; THE "WRITE DELAY MONO". 



TO "EOT" 

TO ADJUST THE "WRITE GAP MONO" AND 



007604 


01 2706 


001100 WFGSUB j 


MOV 


#STACK,SP 


• KEEP THE STACK OUT OF 


THE 


007610 


01 3704 


001 206 


MOV 


3»TACSL,TACS 


; SETUP THE TAl 1 STATUS 


AND 


007614 


013705 


001212 


MOV 


!HTADBL,TADB 


; DATA BUFFER REGISTERS 




007620 


000005 




RESET 




; RESET THE WORLD 




007622 


012737 


007604 001110 


MOV 


8WFGSUB,9*SLPERR 


; SETUP THE LOOP 


ON 


007630 


004737 


010610 


JSR 


PC, BfNXTDRV 


j GO SETUP FOR NEXT DRIV 


E 


007634 


010314 




MOV 


DRIVE, PTACS 


j SELECT DRIVE 




007636 


112714 


000017 


MOVB 


#REWIND!GO,9TACS 


; SEND TAPE TO "BOT" 




007642 


032714 


000040 100$ S 


BIT 


# READY, PTACS 


j WAIT ON READY 




007646 


001775 




BEG 


100S 






007650 


112714 


000001 is: 


MOVB 


*WFGiGO,9TACS 


j WRITE A FILE GAP 




007654 


104412 




WAITREADY 


JWAIT ON READY 




007656 


032714 


020000 


BIT 


#LEADEP, 3TACS 


1 AT "CLEAR LEADER"? 




007662 


001772 




BEQ 


IS 


; BR IF NO 




007664 


000000 




HALT 




;STOP IF YES 




007666 


000746 




BR 


WFGSUB 


;LOOP ON CONT. 






















t 


WRITE 


CONTINUOUS BLOCKS OF DATA 












! START 


AT 224 












; THE PROGRAM WILL HALT THREE ( 3 ) 


TIMES 





; AFTER EACH HALT SET THE SWR AND PRESS CONTINUE 
; HALT 1 SWR<7:0> = NUMBER OF BYTES PER BLOCK 

; HALT 2 SWR<7:0> = PATTERN DESIRED 

j HALT 3 ™ SWR<15:0> = OPERATIONAL SWITCH SETTINGS 
jTHIS ROUTINE CAN BE USED TO ADJUST THE "GAP TIME MONO" 
>** IF USING SOFTWARE SWITCH REGISTER, AFTER 



1834 










1 


EACH HALT OPERATOR 


WILL BE PROMPTED 


1835 










f 


FOR THE VALUE WITH 


"SWRsXXXXXX NEWs" 


1836 














i 


1837 


007670 


004737 


010352 


WRTSUB: 


JSR 


PCMSETBUF 


; GET BLOCK SIZE AND PATTERN 


1838 


007674 


012706 


001100 


WLOOP: 


MOV 


8STACK,SP 


; KEEP THE STACK OUT OF THE WAY 


1839 


007700 


013704 


001206 




MOV 


9#TACSL,TACS 


; SETUP THE TAl 1 STATUS AND 


1840 


007704 


013705 


001212 




MOV 


POTADBL, TADB 


; DATA BUFFER REGISTERS 


1841 


007710 








RESET 




; RESET THE WORLD 


1842 


007712 


012737 


007674 001110 




MOV 


#WLOOP,e#SLPERP 


; SETUP THE LOOP ON ERROR ADDRESS 


1843 


007720 


004737 


010610 




JSR 


PC,»#NXTDRV 


;GO SETUP FOR NEXT DRIVE 


1844 


007724 


010314 






MOV 


DRIVE, #TACS 


; SELECT DRIVE 


1845 


007726 


112714 


000017 




MOVB 


#REWIND!GO,PTACS 


; SEND TAPE TO "BOT" 


1846 


007732 


032714 


000040 


1008? 


BIT 


# READY , 9TACS 


; WAIT ON READY 


1847 


007736 


001775 






BEO 


1008 
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1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1 862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 



007740 
007744 
007750 
007752 
007754 



004737 
032714 
001773 
000000 
000747 



010466 
020000 



JSR PC,0#WRTBLK 

BIT #LEADER, 3TACS 

BEQ 1$ 

HALT 

BR WLOOP 



WRITE A BLOCK 
j AT "CLEAR LEADER"? 
; BR IF NO 
;STOP IF "EOT" 
;LOOP IF CONT. 



READ CONTINUOUS BLOCKS OF 
; START AT 230 
f THIS ROUTINE CAN BE USED 
j AND THE "THRESHOLD POT" . 



TO ADJUST THE "SIGNAL MONO" 



007756 


012706 


001100 


RDSUB i 


MOV 


#STACK,SP 


; KEEP THE STACK OUT OF THE WAY 


007762 


013704 


001206 




MOV 


§#TACSL,TACS 


; SETUP THE TA11 STATUS AND 


007766 


013705 


001212 




MOV 


§#TADBL, TADB 


; DATA BUFFER REGISTERS 


007772 


000005 






RESET 




; RESET THE WORLD 


007774 


012737 


007756 001110 




MOV 


SRDSUB,e#$LPERR 


; SETUP THE LOOP ON ERROR ADDRESS 


010002 


004737 


010610 




JSR 


PC,P#NXTDRV 


;GO SETUP FOR NEXT DRIVE 


010006 


010314 






MOV 


DRIVE, PTACS 


; SELECT DRIVE 


010010 


1 12714 


000017 




MOVB 


#REWIND!GO,<aTACS 


; SEND TAPE TO "BOT" 


010014 


032714 


000040 


100$; 


BIT 


$ READY, £TACS 


; WAIT ON READY 


010020 


001775 






BEQ 


100S 




010022 


004737 


010530 


1$: 


JSR 


PC,a#RDBLK 


; READ A BLOCK 


010026 


032714 


020000 




BIT 


#LEADER, STAGS 


; AT "CLEAR LEADER"? 


010032 


001351 






BNE 


RDSUB 


% BR IF YES»-»LOOP 


010034 


000772 






BR 


1$ 





WRITE A FILE GAP AND A BLOCK OF DATA FROM BOT TO EOT 
j START AT 234 

; THE PROGRAM WILL HALT THREE( 3 ) TIMES 

I AFTER EACH HALT SET THE SWR AND PRESS CONTINUE 

J HALT 1 — - SWR<7:0> s NUMBER OF BYTES PER BLOCK 

; HALT 2 — - SWR<7:0> a PATTERN DESIRED 

> HALT 3 -« — SWR<15:0> s OPERATIONAL SWITCH SETTINGS 

f THIS ROUTINE CAN BE USED TO ADJUST THE "WRITE GAP MONO" 

}H IF USING SOFTWARE SWITCH REGISTER, AFTER 

% EACH HALT OPERATOR WILL BE PROMPTED 

j FOR THE VALUE WITH "SWRsXXXXXX NEWs« 

; AND THE "GAP TIME MONO". 



1891 


010036 


004737 


010352 


WGPBLKi 


JSR 


PC,9#SETBUF 


; GET BLOCK SIZE AND PATTERN 


1892 


010042 


012706 


001 100 


WGBLOP: 


MOV 


#STACK,SP 


; KEEP THE STACK OUT OF THE WAY 


1893 


010046 


013704 


001206 




MOV 


?#TACSL,TACS 


J SETUP THE TAU STATUS AND 


1894 


010052 


013705 


001212 




MOV 


gtJTADBL, TADB 


; DATA BUFFER REGISTERS 


1895 


010056 


000005 






RESET 




; RESET THE WORLD 


1896 


010060 


012737 


010042 


001110 


MOV 


|WGBLOP,@#$LPERR 


j SETUP THE LOOP ON ERROR 


1897 


010066 


004737 


010610 




JSR 


PC,9#NXTDRV 


;GO SETUP FOR NEXT DRIVE 


1898 


010072 


010314 






MOV 


DRIVE, (PTACS 


; SELECT DRIVE 


1899 


010074 


112714 


000017 




MOVB 


«REWINDIG0,9TACS 


j SEND TAPE TO "BOT" 


1900 


010100 


032714 


000040 


1008 J 


BIT 


•READY, 3TACS 


jWAIT ON READY 


1901 


010104 


001775 






BEO 


1008 




1902 


010106 


112714 




IS s 


MOVB 


#WFG1G0,3TACS 


? WRITE A FILE GAP 


1903 


010112 


104412 






WAITREADY 


jWAIT ON READY 
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DZTACC.NEW WRITE A FILE GAP AND A BLOCK OF DATA FROM BOT TO EOT 



SEQ 0056 



1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 



010114 032714 
010120 001005 



010122 
010126 
010132 
010134 
010136 



004737 
032714 
001765 



010466 
020000 



BIT 

BNE 

JSR 

BIT 

BEQ 

HALT 

BR 



#LEADER,9TACS 
2S 

PC , WRTBLK 
ILEADERr 9TACS 

1$ 

WGBLOP 



; AT "CLEAR LEADER"? 

; BR IF YES 

y WRITE A BLOCK 

; AT "CLEAR LEADER"? 

; BR IF NO 

;STOP AT "EOT" 

; START OVER ON CONT. 



FILE GAP 



READ A BLOCK OF DATA AND A 
; START AT 240 

;THIS ROUTINE IS USED AFTER "WRITE A BLOCK AND A FILE GAP" ROUTINE 
j IT CAN BE USED TO ADJUST THE "SIGNAL MONO", THE THRESHOLD POT" 
; AND THE "TAPE BLANK MONO" . 



010140 


012706 


001100 


RGPBLK: 


MOV 


#STACK,SP 


; KEEP THE STACK OUT OF T 


010144 


013704 


001206 




MOV 


$#TACSL,TACS 


; SETUP THE TA1 1 STATUS A 


010150 


013705 


001212 




MOV 


$#TADBL, TADB 


•DATA BUFFER REGISTERS 


010154 


000005 






RESET 




; RESET THE WORLD 


010156 


012737 


010140 


001110 


MOV 


#RGPBLK, e#$LPERR 


; SETUP THE LOOP 


010164 


004737 


010610 




JSR 


PC , 3# NXTDRV 


;GO SETUP FOR NEXT DRIVE 


010170 


010314 






MOV 


DRIVE, gTACS 


; SELECT DRIVE 


010172 


112714 


000017 




MOVB 


#REWIND1G0,3TACS 


; SEND TAPE TO "BOT" 


010176 


032714 


000040 


100$: 


BIT 


#READY,3TACS 


; WAIT ON READY 


010202 


001775 






BEG 


100$ 




010204 


004737 


010530 


1S5 


JSR 


PC, g#RDBLK 


; READ A BLOCK OF DATA 


010210 


032714 


020000 




BIT 


SLEADER, iTACS 


; AT "CLEAR LEADER"? 


010214 


001351 






BNE 


RGPBLK 


J BR IF YES 


010216 


1 12714 


000015 




MOVB 


USFBGi GO, flTACS 


; GET INTO A FILE GAP 


010222 


104412 






WAITREADY 




010224 


032714 


020000 




BIT 


#LEADER, @TACS 


; AT "CLEAR LEADER"? 


010230 


001343 






BNE 


RGPBLK 


; BR IF YES 


010232 


000764 






BR 


1$ 


j LOOP 



010234 


012706 


001 100 


010240 


013704 


001206 


010244 


013705 


001212 


010250 


000005 




010252 


012737 


010234 


010260 


004737 


010610 


010264 


010314 




010266 


112714 


000017 


010272 


032714 


000040 


010276 


001775 




010300 


1 12714 


000013 


010304 


104412 





SFFGSB ! 



100$: 
1$: 



SPACE FORWARD FILE GAP FROM "BOT" 
; START AT 244 

;THIS ROUTINE CAN BE USED AFTER 
j SPACE FOWARD (TAPE BLANK MONO CA 
•WRITE A FILE GAP AND A BLOCK OF 
; (SIGNAL MONO CAN BE CHECKED) . 

MOV *STACK,SP 

MOV P#TACSL, TACS 

MOV 3#TADBL, TADB 

RESET 

MOV #SFFGSB, P#$LPERR 

JSR PC, P#NXTDRV 

MOV DRIVE, 9TACS 

MOVB #REWIND!GO,9TACS 

BIT # READY, PTACS 

BEO 100$ 

MOVB #SFFG»GO,0TACS 
WAITREADY 



TO "EOT" 

WRITE FILE GAP" FOR LOW SPEED 
N BE ADJUSTED) , OR AFTER READ OR 
DATA FOR HIGH SPEED SPACE FORWARD 

KEEP THE STACK OUT OF THE WAY 
SETUP THE TA1 1 STATUS AND 
DATA BUFFER REGISTERS 
RESET THE WORLD 

ySETUP THE LOOP ON ERROR ADDRESS 
GO SETUP FOR NEXT DRIVE 
SELECT DRIVE 
SEND TAPE TO "BOT" 
WAIT ON READY 

SPACE INTO A FILE GAP 
WAIT ON READY 
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1960 


010306 


032714 


020000 


1961 


010312 


001772 




1962 


010314 


000000 




1963 


010316 


000746 




1964 








1965 








1966 








1967 








1968 








1969 








1970 








1971 


010320 


000005 




1972 


010322 


012737 


010320 


1973 


010330 


010314 




1974 


010332 


112714 


000007 


1975 


010336 


104412 




1976 


010340 


032714 


020000 


1977 


010344 


001772 




1978 


010346 


000000 




1979 


010350 


000763 




1980 








1981 








1982 








1983 








1984 








1985 


010352 


005000 




1986 


010354 


000000 




1987 


010356 


022767 


000176 


1988 


010364 


001001 




1989 


010366 


104405 




1990 


010370 






1991 


010370 


157700 


170544 


1992 


010374 


001006 




1993 


010376 


105777 


170537 


1994 


010402 


001402 




1995 


010404 


012700 


000376 


1996 


010410 


005200 




1997 


010412 


010037 


010462 


1998 


010416 


005037 


010464 


1999 


010422 


000000 




2000 


010424 


022767 


000176 


2001 


010432 


001001 




2002 


010434 


104405 




2003 


010436 






2004 


010436 


117737 


170476 


2005 


010444 


000000 




2006 


010446 


022767 


000176 


2007 


010454 


001001 




2008 


010456 


104405 




2009 


010460 






2010 


010460 


000207 




2011 


010462 


000000 




2012 


010464 


000000 




2013 








2014 








2015 









BIT 

BEQ 
HALT 

BP 



PLEADER, PTACS 

1$ 



AT "CLEAR LEADER"? 
BR IF NO 
STOP AT "EOT" 
LOOP ON CONT. 



BACK SPACE FILE GAP 
; START AT 250 

•THIS ROUTINE CAN BE USED TO ADJUST OR CHECK THE "SIGNAL MONO" . 



BSFGSB: RESET 
MOV 



# BSFGSB, ?#$LPERR 
MOV DRIVE, 9TACS 

MOVB #BSFG'GO, PTACS 
WAITREADY 

BIT *LEADER,aTACS 
BEQ IS 

HALT 

BR BSFGSB 



; RESET THE WORLD 

jLOOP ON ERROR ADDRESS 
; SELECT DRIVE 
; BACK SPACE A FILE GAP 
; WAIT ON READY 
; AT "CLEAR LEADER"? 
; BR IF NO 
•STOP AT BOT 
; START OVER ON CONT. 



SETUP BLOCK SIZE AND PATTERN FOR SUBROUTINES 



SETBUF: CLR 



1$: 

2$: 



010464 
170464 



HALT 




; OPERATOR PUTS BYTE COUNT IN SWR<7:0> 


CMP 


#SWREG,SWR 


;USING S/W SWITCH REG? 


BNE 


20$ 


;NO- GET OUT 


GTSWR 




; GET VALUE 






^CONTINUE 


BISB 


$SWR,R0 


;PICKUP THE BYTE COUNT 


BNE 


2$ 


; BR IF NON-ZERO 


TSTB 


@swr+i 


jCHECK IF GREATER THAN 377 


BEQ 


is 


; BR IF NO 


MOV 


#376, R0 


;SET FOR MAX ALLOWED 


INC 


R0 


; MAKE IT 377 OR 1 


MOV 


R0, 9IBLKLIM 


;SETUP THE BLOCK LIMIT 


CLR 


3#PATTRN 




HALT 




; OPERATOR PUTS PATTERN IN SWR<7:0> 


CMP 


»SWREG,SWR 


;USING S/W SWITCH REG? 


BNE 


21$ 


;NO- GET OUT 


GTSWR 




; GET VALUE 






f CONTINUE 


MOVB 


£SWR,@#PATTRN 


;PICK UP THE PATTERN 


HALT 




? SET OPERATIONAL SWITCHES 


CMP 


#SWREG,SWR 


;USING S/W SWITCH REG? 


BNE 


22$ 


;NO- GET OUT 


GTSWR 




; GET VALUE 






jCONTINUE 


RTS 


PC 


; RETURN 



BLKLIM ; 
PATTRN : 



READ AND WRITE BLOCK SIZE 
PATTERN TO GO ON THE TAPE 
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SEQ 0058 



2016 










WRITE 


ROUTINE FOR THE MANUAL 


OPERATIONS 


2017 










2018 


010466 


013701 


010462 


WPTBLK : 


MOV 


S#BLKLIM,R1 


; PICKUP THE BLOCK SIEE 


2019 


010472 


112714 


000003 




MOVB 


#WRITE1G0,9TACS 


; START A WRITE 


2020 


010476 


104413 




IS! 


WAITXFER 


; WAIT ON TRANSFER REQUEST 


2021 


010500 


032714 


000040 




BIT 


•READY, &TACS 


;DID READY SET? 


2022 


010504 


001010 






BNE 


3$ 


;BR IF YES 


2023 


010506 


005301 






DEC 


Rl 


?COUNT THIS REQUEST 


2024 


010510 


002403 






BLT 


2$ 


; BR IF TIME FOR ILBS 


2025 


010512 


113715 


010464 




MOVB 


e#PATTRN,3TADB 


;PUT DATA ON TAPE 


2026 


010516 


000767 






BR 


1$ 


?LOOP 


2027 


010520 


052714 


000020 


2$: 


BIS 


#ILBS,iTACS 


; WRITE CRC AND SHUT DOWN 


2028 


010524 


104412 






WAITPEADY 


I WAIT ON THE READY FLAG 


2029 


010526 


000207 




3$: 


RTS 


PC 




2030 
















2031 
















2032 








• j 


2033 










READ 


ROUTINE FOR THE MANUAL 


OPERATIONS 


2034 










2035 


010530 


01 3702 


010462 


RDBLK; 


MOV 


3#BLKLIM,R2 


;PICKUP THE BLOCK SIZE 


2036 


010534 


013700 


010464 




MOV 


9#PATTRN,R0 


;USE THIS DATA PATTERN TO COMPARE 


2037 


010540 


112714 


000005 




MOVB 


#READlGO,giTACS 


; START A READ 


2038 


010544 


104413 




1$: 


WAITXFER 


; WAIT ON TRANSFER REQUEST 


2039 


010546 


032714 


000040 




BIT 


•READY, &TACS 


•IS READY SET? 


2040 


010552 


001012 






BNE 


3$ 


; BR IF YES 


2041 


010554 


005302 






DEC 


R2 


;COUNT THIS REQUEST 


2042 


010556 


002405 






BLT 


2$ 


; BR IF TIME FOR ILBS 


2043 


010560 


011501 






MOV 


3TADB,R1 


; READ THE DATA BUFFER 


2044 


010562 


120001 






CMPB 


R0,R1 


;CHECK THE DATA 


2045 


010564 


001767 






BEG 


IS 


; BR IF OK 


2046 


010566 


104005 






ERROR 


5 


; BAD DATA 


2047 


010570 


000406 






BR 


4$ 


;GET OUT 


2048 


010572 


052714 


000020 


2$; 


BIS 


# ILBS, PTACS 


; READ ILBS 


2049 


010576 


104412 






WAITREADY 


;WAIT ON READY 


2050 


010600 


005714 




3S : 


TST 


PTACS 


;CHECK FOR ERROR 


2051 


010602 


100001 






BPL 


45 


; BR IF NONE 


2052 


010604 


104001 






ERROR 


1 


; ERROR OCCURRED 


2053 


010606 


000207 




4SS 


RTS 


PC 


; RETURN 


2054 
















2055 
















2056 








• • 


2057 










ROUTINE TO CHANGE DRIVES 




2058 


010610 


105777 


170324 


NXTDRV: 


TSTB 


gSWR 


; IS SW07 ON A (1)? 


2059 


01061 4 


100416 






BMI 


3$ 


; BR IF YES 


2060 


010616 


005003 






CLR 


DRIVE 


; SET DRIVE TO "A" 


2061 


010620 


01 3701 


001230 




MOV 


MDRVPNT, Rl 


; GET DRIVE POINTER 


2062 


010624 


122127 


000101 




CMPB 


(R1)+,#'A 


; IS IT DRIVE "A"? 


2063 


010630 


001402 






BEO 


1$ 


; BR IF YES 


2064 


010632 


012703 


000400 




MOV 


#UNIT, DRIVE 


;SET DRIVE TO "B" 


2065 


010636 


105711 




is: 


TSTB 


(Rl ) 


; LAST DRIVE BEEN SELECTED 


2066 


010640 


001002 






BNE 


2$ 


; BR IF NO 


2067 


010642 


012701 


001224 




MOV 


#DRVKEY,R1 


; RESET DRIVE POINTER 


2068 


010646 


010137 


001230 


2S: 


MOV 


Rl , SSDPVPNT 


; SAVE DRIVE POINTER FOR NEXT TIME 


2069 


010652 


000207 




3$: 


RTS 


PC 


;GO BACK 
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2070 








2071 








2072 








2073 








2074 








2075 








2076 








2077 








2078 








2079 








2080 


010654 


013701 


001206 


2081 


010660 


005011 




2082 


010662 


122710 


000101 


2083 


010666 


001402 




2084 


010670 


05271 1 


000400 


2085 


010674 


032711 


000040 


2086 


010700 


001775 




2087 


010702 


005711 




2088 


010704 


100024 




2089 


010706 


03271 1 


001000 


2090 


010712 


001017 




2091 


010714 


032711 


010000 


2092 


010720 


001411 




2093 


010722 


122777 


000201 


2094 


010730 


001412 




2095 


010732 


122777 


000203 


2096 


010740 


001406 




2097 


010742 


000403 




2098 


010744 


032711 


020000 


2099 


010750 


001002 




2100 


010752 


062716 


000002 


2101 


010756 


000207 





-#«*****«*»****#»#«»**»« 



170210 
170200 



. SBTTL 




ROUTINE TO EXAMINE 


DRIVE(S) FOR AVAILABLITY 


; C ALL : 










MOV 


#DRVKEY,R0 






JSR 


PC,P#EXAM 


;R1 IS DESTROYED 




NORMAL 


RETURN 






ERROR 


RETURN 




EXAM : 


MOV 


3»TACSL,R1 


;PICKUP THE "CONTROL & STATUS" REG. ADR 




CLR 


(Rl) 


;DRIVE="A", FUNCTIONS " WFG" 




CMPB 


#'A, (R0) 


; EXAMINE DRIVE "A"? 




BEQ 


1$ 


j BR IF YES 




BIS 


•UNIT, (Rl) 


; SELECT DRIVE "B" 


IS: 


BIT 


•READY, (Rl ) 


; WAIT ON READY 




BEQ 


1$ 






TST 


(Rl) 


; ANY ERROR? 




BPL 


4S 


y BR IF NO 




BIT 


•OFFLINE, (Rl) 


; ERROR DUE TO "OFF LINE"? 




BNE 


3S 


; BR IF YES 




BIT 


IWRTLOCK, (Rl ) 


; ERROR DUE TO "WRITE LOCK"? 




BEQ 


2$ 


j BR IF NO 




CMPB 


#BIT07iBIT00,eSWR 


; "READONLY" SELECTED? (RD1PAS) 




BEQ 


4$ 


;BR IF YES 




CMPB 


SBIT07 1BIT01 1BIT00 


?SWR • (RD2PAS)? 




BEQ 


4$ 


; BR IF YES 




BR 


3$ 


; TAKE THE ERROR EXIT 


2S; 


BIT 


•LEADER, (Rl ) 


J ERROR DUE TO "CLEAR LEADER"? 




BNE 


4$ 


,'BR IF YES 


3$: 


ADD 


#2, CSP) 


; TAKE ERROR RETURN 


4$: 


RTS 


PC 


; RETURN 
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2102 








2103 








2104 








2105 








2106 








2107 








2108 








2109 








2110 








2111 








2112 








2113 








2114 








2115 








2116 








2117 








2118 








2119 


010760 


105767 


170173 


2120 


010764 


100002 




2121 


010766 


000000 




2122 


010770 


000407 




2123 


010772 


010046 




2124 


010774 


017600 


000002 


2125 


011000 


112046 




2126 


011002 


001005 




2127 


011004 


005726 




2128 


011006 


012600 




2129 


011010 


062716 


000002 


2130 


011014 


000002 




2131 


01 1016 


122716 


00001 1 


2132 


011022 


001430 




2133 


011024 


122716 


000200 


2134 


011030 


001006 




2135 


011032 


005726 




2136 


011034 


104401 




2137 


011036 


001177 




2138 


011040 


105067 


000130 


2139 


011044 


000755 




2140 


011046 


004767 


000056 


2141 


011052 


126726 


170100 


2142 


011056 


001350 




2143 


011060 


016746 


170070 


2144 








2145 


011064 


105366 


000001 


2146 


011070 


002770 




2147 


011072 


004767 


000032 


2148 


011076 


105367 


000072 


2149 


01 1102 


000770 




2150 








2151 








2152 








2153 


01 1 104 


1 12716 


000040 


2154 


011110 


004767 


00001 4 


2155 


011114 


132767 


000007 


2156 


011122 


001372 




2157 


011124 


005726 





.SBTTL TYPE ROUTINE 

I 

♦ROUTINE TO TYPE ASCIZ MESSAGE, MESSAGE MUST TERMINATE WITH A BYTE. 
♦THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
♦NOTE1: 6NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

♦NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

♦NOTE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER, 



♦CALL: 
♦1) USING A 



TRAP INSTRUCTION 



J* 


TYPE 


f MESADR 


; ; MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


f *OP 








• » 


TYPE 








MESADR 






STYPEl 


TSTB 


STPFLG 


; ; IS THERE A TERMINAL? 




BPL 


IS 


; ; BR IF YES 




HALT 




f ; HALT HERE IF NO TERMINAL 




BR 


3S 


; f LEAVE 


IS: 


MOV 


R0,«»(SP) 


; f SAVE R0 




MOV 


#2(SP) » R0 


?f GET ADDRESS OF ASCIZ STRING 


2§ i 


MOVE 


(R0)+, «(SP) 


; f PUSH CHARACTER TO BE TYPED ONTO STACK 




BNE 


4$ 


; ;BR IF IT ISN'T THE TERMINATOR 




TST 


(SP) + 


f f IF TERMINATOR POP IT OFF THE STACK 


60S : 


MOV 


(SP)+,R0 


f j RESTORE R0 


3$; 


ADD 


$2,(SP) 


; j ADJUST RETURN PC 




RTI 




| f RETURN 


4$: 


CMPB 


#HT, (SP) 


; f BRANCH IF <HT> 




BEQ 


8$ 






CMPB 


KRLF, (SP) 


f | BRANCH IF NOT <CRLF> 




BNE 


5$ 






TST 


(SP) + 


; ;POP <CRXLF> EQUIV 




TYPE 




; ; TYPE A CR AND LF 




SCRLF 








CLRB 


SCHARCNT 


; ; CLEAR CHARACTER COUNT 




BR 


2$ 


; j GET NEXT CHARACTER 


5$: 


JSP 


PC, STYPEC 


; } GO TYPE THIS CHARACTER 


68: 


CMPB 




■ i tc t t ttuc rno pti fro rutoc t 
f f i. o I I lint (UK r X ultr \, nAro , I 




BNE 


2$ 


?5 IF NO GO GET NEXT CHAR. 




MOV 


SNULL, "(SP) 


; j GET # OF FILLER CHARS. NEEDED 








; f AND THE NULL CHAR. 


7S i 


DECB 


1 (SP) 


f f DOES A NULL NEED TO BE TYPED? 




BLT 


6$ 


; f BR IF NO — GO POP THE NULL OFF OF STACK 




JSR 


PC, STYPEC 


?f GO TYPE A NULL 




DECB 


SCHARCNT 


f j DO NOT COUNT AS A COUNT 




BR 


7$ 


f fLOOP 


; HORIZONTAL TAB 


PROCESSOR 




8$: 


MOVB 


#' , (SP) 


f f REPLACE TAB WITH SPACE 


9$ % 


JSR 


PC,$TYPEC 


f f TYPE A SPACE 




BITB 


87, SCHARCNT 


f f BRANCH IF NOT AT 




BNE 


9$ 


f ; TAB STOP 




TST 


(SP) + 


f j POP SPACE OFF STACK 



TA1 1 MANUAL INTERVENTION TEST MAINDEC*! 1 «DZTAC»C 



BR 

STYPEC j TSTB 
BPL 
MOVB 
CMPB 
BNE 
CLRB 
BP 

CMPB 
BEQ 
INCB 
SCHARCNT: .WORD 
STYPEX: PTS 
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TACC.NEW 


TYPE ROUTINE 


2158 


011126 


000724 




2159 


011130 


105777 


170014 


2160 


011134 


100375 




2161 


011 136 


116677 


000002 


2162 


011144 


122766 


000015 


2163 


011152 


001003 




2164 


011154 


105067 


000014 


2165 


011160 


000406 




2166 


011162 


122766 


000012 


2167 


011170 


001402 




2168 


011172 


105227 




2169 


011174 


000000 




2170 


011176 


000207 




2171 








2172 








2173 








2174 








2175 








2176 








2177 








2178 








2179 








2180 








2181 








2182 


01 1200 


022767 


000176 


2183 


011206 


001074 




2184 


01 1210 


105777 


167730 


2185 


011214 


100071 




2186 


011216 


117746 


167724 


2187 


011222 


042716 


177600 


2188 


011226 


022726 


000007 


2189 


011232 


001062 




2190 


011234 


126727 


167674 


2191 


011242 


001456 




2192 








2193 


811244 


104401 


011725 


2194 


011250 


104401 


011732 


2195 


011254 


016746 


166716 


2196 


§11260 


104402 




2197 


011262 


104401 


011743 


2198 


011266 


005046 




2199 


011270 


005046 




2200 


011272 


105777 


167646 


2201 


§11276 


10037S 




2202 








2203 


011300 


117746 


167642 


2204 


011304 


042716 


177600 


2205 








2206 








2207 








2208 


011310 


021627 


000025 


2209 


011314 


001005 




2210 


011316 


104401 


011720 


2211 


011322 


062706 


000006 


2212 


011326 


000757 




2213 









170006 
000002 



000002 IS 



2$ 

ISTPS 
STYPEC 
2(SP) ,&STPB 
»CR,2(SP) 

IS 

SCHARCNT 

STYPEX 

*LF,2(SP) 

STYPEX 

(PO + 



PC 



f j GET NEXT CHARACTER 
f WAIT UNTIL PRINTER IS READY 

f LOAD CHAR TO BE TYPED INTO DATA REG. 
f IS CHARACTER A CARRIAGE RETURN? 
f BRANCH IF NO 

f YES— CLEAR CHARACTER COUNT 
f EXIT 

f IS CHARACTER A LINE FEED? 

f BRANCH IF YES 

fCOUNT THE CHARACTER 

f CHARACTER COUNT STORAGE 



.SBTTL TTY INPUT ROUTINE 

. ENABL LSB 
• • 

; *SOFTWAPE SWITCH REGISTER CHANGE ROUTINE. 

;*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

f ^SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
f # WHEN OPERATING IN TTY FLAG MODE. 



CMP 


#SWPEG,SWR 


; f IS THE SOFT-SWR SELECTED? 


BNE 


15$ 


; ; BRANCH IF NO 


TSTB 


0STKS 


f f CHAR THERE? 


BPL 


15S 


; f IF NO, DON'T WAIT AROUND 


MOVB 


§STKB,-CSP) 


; f SAVE THE CHAR 


BIC 


STC177, (SP) 


; f STRIP-OFF THE ASCII 


CMP 


#7, (SP) * 


; f IS IT A CONTROL G? 


BNE 


15S 


f f NO, RETURN TO USER 


CMPB 


SAUTOB,81 


; f ARE WE RUNNING IN AUTO-MODE? 


BEQ 


15S 


? j BRANCH IF YES 


TYPE 


t SCNTLG 


; f ECHO THE CONTROL-G C"G) 


TYPE 


,SMSWR 


; f TYPE CURRENT CONTENTS 


MOV 


SWREG,»(SP) 


f f SAVE SWREG FOR TYPEOUT 


TYPOC 




If GO TYPE— OCTAL ASCIKALL DIGITS 


TYPE 


,SMNEW 


; f PROMPT FOR NEW SWR 


CLR 


-CSP5 


; f CLEAR COUNTER 


CLR 


-CSP) 


f f THE NEW SWR 


TSTB 


®$TKS 


; f CHAR THERE? 


BPL 


7S 


f f IF NOT TRY AGAIN 


MOVB 


MTKB,*<SP) 


f f PICK UP CHAR 


BIC 


#"C177,CSP) 


f f MAKE IT 7-BIT ASCII 


CMP 


CSP),#2§ 


f f IS IT A CONTROL-U? 


BNE 


10$ 


f f BRANCH IF NOT 


TYPE 


,SCNTLU 


f f YES, ECHO CONTROL-U CU) 


ADD 


'46, S? 


f f IGNORE PREVIOUS INPUT 


BR 


19$ 


; f LET'S TRY IT AGAIN 



TA1 

DET 



MANUAL 


INTERVENTION 


TEST 


MAINDEC 


«il-DZTAOC 


MACYll 


27(732) 11«®JUN»76 I3|51 PAGE 


C 9 NEW 


TTY INPUT ROUTII 












5 01i: 


30 021627 


000015 




10$: 


CMP 


(SP),«15 


MIS IT A <CR>? 


6 0111 


34 001022 








BNE 


16$ 


; j BRANCH IF NO 


7 011: 


36 00S766 


000004 






TST 


4CSP3 


WYES, IS IT THE FIRST CHAR? 


8 0111 


142 001403 








BEQ 


11$ 


BRANCH IF YES 


9 01i; 


144 016677 


000002 


167566 




MOV 


2(SP),§SWR 


? 1 SAVE NEW SWR 


01i; 


152 062706 


000006 




11$; 


ADD 


#6,SP 


; jCLEAR UP STACK 


1 011, 


156 104401 


001177 




14S: 


TYPE 


,$CRLF 


; |ECHO <CR> AND <LF> 


2 011. 


162 126727 


167547 


000001 




CMPB 


SINTAG, n 


1 1 RE-ENABLE TTY KBD INTERRUPTS? 


3 011 


170 001003 








BNE 


15$ 


1 1 BRANCH IF NOT 


4 011. 


172 012777 


000100 


167544 




MOV 


#100,0$TKS 


; | RE-ENABLE TTY KBD INTERRUPTS 


5 01 1 ^ 


100 000002 






15SS 


RTI 




I J RETURN 


6 01 1 i 


102 004767 


177522 




16$: 


JSR 


PCSTYPEC 


; jECHO CHAR 


7 011' 


106 021627 


000060 






CMP 


(SP),»60 


; | CHAR < 0? 


8 0114 


112 002420 








BLT 


18$ 


I } BRANCH IF YES 


9 01 1 ^ 


114 021627 


000067 






CMP 


(SP),*67 


; ; CHAR > 7? 


01 \ i 


120 003015 








BGT 


18$ 


; ; BRANCH IF YES 


i 01 1 i 


122 042726 


000060 






BIC 


#60, (SP)+ 


; ;STRIP-OFF ASCII 


2 01 1 i 


126 005766 


000002 






TST 


2(SP) 


?|IS THIS THE FIRST CHAR 


3 01 1 ^ 


132 001403 








BEQ 


17$ 


; ; BRANCH IF YES 


4 0114 


134 006316 








ASL 


(SP) 


1 jNO, SHIFT PRESENT 


5 01 l i 


136 006316 








ASL 


(SP) 


; ; CHAR OVER TO MAKE 


6 0114 


140 006316 








ASL 


(SP) 


I } ROOM FOR NEW ONE , 


7 01 1^ 


142 005266 


000002 




17$: 


INC 


2(SP) 


; | KEEP COUNT OF CHAR 


8 1 1 4 


146 056616 


177776 






BIS 


-2(SP) , (SP) 


1 |SET IN NEW CHAR 


9 011< 


152 000707 








BR 


7$ 


; J GET THE NEXT ONE 




154 104401 


001176 




IBS: 


TYPE 


t SQUES 


1 ; TYPE ?<CRXLF> 


1 011' 


160 000720 








BR 


20$ 


; ; SIMULATE CONTROL-U 



.DSABL LSB 



;*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
;*CALL: 



> * 



RDCHR 

RETURN HERE 



011646 






SPDCHP: 


MOV 


(SP),» 


(SP) 


; >PUSH DOWN THE PC 


016666 


000004 


000002 




MOV 


4(SP), 


2(SP) 


? ? SAVE THE PS 


105777 


167446 




1$: 


TSTB 


PSTKS 




; jWAIT FOR 


100375 








BPL 


1$ 




f jA CHARACTER 


1 17766 


167442 


000004 




MOVb 


?$TKB, 


4(SP) 


I 1 READ THE TTY 


042766 


177600 


000004 




BIC 


S*C<177>,4(SP) 


; ) GET RID OF JUNK IF ANY 


026627 


000004 


000023 




CMP 


4(SP), 


#23 


1 ;IS IT A CONTROL-S? 


001013 








BNE 


3$ 




1 ; BRANCH IF NO 


105777 


167414 




2$: 


TSTB 


9STKS 




j ? WAIT FOR A CHARACTER 


100375 








BPL 


2$ 




I ;LOOP UNTIL ITS THERE 


117746 


167410 






MOVB 




-(SP) 


; J GET CHARACTER 


042716 


177600 






BIC 


«"C177 


r (SP) 


; j MAKE IT 7-BIT ASCII 


022627 


000021 






CMP 


(SP)+, 


#21 


1 1 IS IT A CONTROL-Q? 


001366 








BNE 


2$ 




I >IF NOT DISCARD IT 


000750 








BR 


1$ 




1 jYES, RESUME 


026627 


000004 


000140 


3$: 


CMP 


4(SP) , 


#140 


j f IS IT UPPER CASE? 


002407 








BLT 


4$ 




; ; BRANCH IF YES 



J INPUT A SINGLE CHARACTER FROM THE TTY 
; CHARACTER IS ON THE STACK 
;WITH PARITY BIT STRIPPED OFF 



TA1 1 MANUAL INTERVENTION TEST 



DZTACC.NEW 



TTY INPUT ROUTINE 



2270 


01 1562 


026627 


000004 


2271 


011570 


003003 




2272 


011572 


042766 


000040 


2273 


01 1600 


000002 




2274 








2275 








2276 








2277 








2278 








2279 








2280 








2281 




010346 




2282 




012703 


011710 


2283 




022703 


01 1720 


2284 




101405 




2285 




104407 




2286 




1 12613 




2287 




122713 


000177 


2288 




001003 




2289 




104401 


001176 


2290 




000763 




2291 




111367 


000044 


2292 




104401 


011706 


2293 




122723 


000015 


2294 




001356 




2295 




105063 


177777 


2296 




104401 


001200 


2297 




012603 




2298 




011646 




2299 




016666 


000004 


2300 




012766 


011710 


2301 




000002 




2302 




000 




2303 




000 




2304 




000010 




2305 




052536 


005015 


2306 




136 


006507 


2307 




005015 


053523 


2308 




020075 


000 


2309 




040 


047040 


2310 




036440 


000040 


2311 








2312 








2313 








2314 








2315 








2316 








2317 








2318 








2319 








2320 








2321 


011754 


01 1646 




2322 


011756 


016666 


000004 


2323 


011764 


010046 




2324 


011766 


010146 




2325 


011770 


010246 





000175 
000004 



000002 
000004 



000 
000012 

020122 



ll-DZTAC-C 


MACYll 


27 (732) H-JUN-76 13:51 PAGE 50 




CMP 


4(SP),#175 


; J IS IT A SPECIAL CHAR? 




BGT 


4$ 


; ; BRANCH IF YES 




BIC 


840, 4(SP) 


; ; MAKE IT UPPER CASE 


4$: 


RTI 




; jGO BACK TO USER 










1 #THIS 


ROUTINE 


WILL INPUT A STRING FROM THE TTY 


;*CALL: 








;» 


RDLIN 




; j INPUT A STRING FROM THE TTY 


j* 


RETURN 


HERE 


; ; ADDRESS OF FIRST CHARACTER WILL BE 


;* 






; ; TERMINATOR WILL BE A BYTE OF ALL 0» 


SRDLIN: 


MOV 


R3,-(SP) 


J JSAVE P3 


1$: 


MOV 


#$TTYIN,R3 


; ; GET ADDRESS 


2$: 


CMP 


#$TTYIN+8 . ,R3 


; j BUFFER FULL? 




BLOS 


4$ 


; ' BR IF YES 




RDCHR 




; |GO READ ONE CHARACTER FROM THE TTY 




MOVB 


(SP)+, (R3) 


I | GET CHARACTER 


10$: 


CMPB 


#177, (R3) 


1 ; IS IT A RUBOUT 




BNE 


3$ 


; ;SKIP IF NOT 


4$: 


TYPE 


, SQUES 


1 ; TYPE A *?' 




BR 


1$ 


; ; CLEAR THE BUFFER AND LOOP 


3SS 


MOVB 


(R3),9$ 


; jECHO THE CHARACTER 




TYPE 


,9$ 






CMPB 


*15, (R3)+ 


; jCHECK FOR RETURN 




BNE 


2$ 


; jLOOP IF NOT RETURN 




CLRB 


-1CR3) 


; ; CLEAR RETURN (THE 15) 




TYPE 


,$LF 


; j TYPE h LINE FEED 




MOV 


CSPH,R3 


?; RESTORE R3 




MOV 


(SP),-(SP) 


?| ADJUST THE STACK AND PUT ADDRESS OF 




MOV 


4(SP),2(SP) 


I | FIRST ASCII CHARACTER ON IT 




MOV 


#STTYIN,4(SP) 






RTI 




1 | RETURN 


9$: 


«BYTE 





1 > STORAGE FOR ASCII CHAR. TO TYPE 




.BYTE 





1 | TERMINATOR 


ITTYlNi 


.BLKB 


8. 


I ; RESERVE 8 BYTES FOR TTY INPUT 


8CNTLU: 


.ASCIZ 


/~U/<15><12> 


1 iCONTROL "U" 


SCNTLG: 


.ASCIZ 


/~G/<15X12> 


1 iCONTROL W G" 


$mswr: 


« ASCIZ 


<15><12>/SWR s 


/ 


gMNEWS 


9 &SCIZ 


/ NEW s / 





• SBTTL READ AN OCTAL NUMBER FROM THE TTY 



l*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
I*CHANGE IT TO BINARY. 



|*CALL: 
|» RDOCT 
;# RETURN HERE 

j* 



I l READ AN OCTAL NUMBER 

I I LOW ORDER BITS ARE ON TOP OF THE STACK 
I } HIGH ORDER BITS ARE IN SHIOCT 

SRDOCT: MOV (SP),-(SP) ; iPROVIDE SPACE FOR THE 

MOV 4(SP),2(SP) 1 ; INPUT NUMBER 

MOV R0,-(SP) l } PUSH R0 ON STACK 

MOV R1,-(SP) |f PUSH Rl ON STACK 

MOV R2,-(SP) : 1 PUSH R2 ON STACK 
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SEQ 0064 



2326 


011772 


10441 






1 S • 






• •BFin &M & T 7 T TMF 
j J 1\Cj HU Mil KOwXb u 1 N E< 




2327 


011774 










MOV^ 








2328 


011776 


005001 








CLR 




p 5 ULH." UH1H Hury 




2329 


01 2000 












R2 






2330 


01 2002 


1 1 2046 








MAVR 


I n» ;tf "lor; 


. . DTPKIID TUTS fHSBlf TFD 

; ! ritnur into LnHnnUitK 




2331 


012004 










ntrn 




• •TP 7PDA firm niim 




2332 


012006 


006301 










R1 


* * #2 




2333 


01 2010 


006 102 










_ 






2334 


01 201 2 


aa& no t 

rJPD J KJ 1 












| * *4 




2335 


01 201 4 


















2336 


01 2016 












Rl 


• | *8 




o** ie 


a 1 ootid 

V 1 &Y) 4.VJ 


an£ « 01*5 










R2 








01 2022 












a "7 if c D % 
# L / p ISF J 


; (5IK1P TMt ASv.lI JUNK 






01 2026 


06260 1 








ADD 


( SP) + p Rl 


JJADU IN I H I 5 UlblT 






012030 


\Ovv lot 










2$ 






2341 


01 2032 








3 S J 




( SP) ♦ 


J J v. Lit AN ItKMlNATOK t ROm 5 TAL K 




2342 




010166 


aaaa 1 i 

WK'K'sr' i 4 






unu 


Dl « 1 if CD \ 
Klf l/i or/ 


J JoAVt inc. KtoULiT 






1 2040 










unv 








2344 




at -jab*? 










(SP) +# R2 


• J fur o J. Al» rv I N TU R2 




2345 




012601 








Mnv 
MOV 


( SP ) + » R 1 


. .nnn CT&fK T KITH Dl 
; JrUr oiAwSx Iniu Kl 








01 iofcjio 








MOV 


(SP)+pR0 


; ;POP STACK INTO R0 






01 2052 


ovVvt}£ 








RTI 




j j RETURN 




o\ AO 


01 2054 








SHIOCT: 


.WORD 





; ; HIGH ORDER BITS GO HERE 














.SBTTL 


BINARY 


TO OCTAL (ASCII) 


AND TYPE 
























2351 










• ; ##■»##* 








2352 










;*THIS ROUTINE 


IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 


2 35 3 










;*OCTAL 


(ASCII) 


NUMBER AND TYPE 


IT, 














; ♦$ TYPOS- --ENTER HERE TO SETUP 


SUPPRESS ZEROS AND NUMBER OF DIGITS 


TO TYPE 












;»CALL: 




















• * 


MOV 


NUM,-(SP) 


; ; NUMBER TO BE TYPED 




0*K7 










• * 


TYPOS 




; ; CALL FOR TYPEOUT 














• # 


.BYTE 


N 


; ;N=1 TO 6 FOR NUMBER OF DIGITS TO 


TYPE 


9«Q 












.BYTE 


M 


; ;M=1 OR 




o\ti i 










• » 






. j l=TYPE LEADING ZEROS 




















; j0rSUPPRESS LEADING ZEROS 














* * 




















;*$TYPON 


«» «,«,«. ENTER HERF. TO TYPE 


OUT WITH THE SAME PARAMETERS AS THE 


LAST 












;*$TYPOS OR STYPOC 
















;*CALL: 




















• # 


MOV 


NUM, -(SP) 


• > NUMBER TO BE TYPED 




2 36 7 










• * 


TYPON 




; j C ALL FOR TYPEOUT 














• -» 










2369 










;*STYPOC 


ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 




2370 










;*CALL: 




















• # 


MOV 


NUM, -(SP) 


; ; NUMBER TO BE TYPED 




O 111 












TYPOC 




; ;CALL FOR TYPEOUT 




2373 




















2374 


01 2056 


017 6 46 


000000 




STYPOS: 


MOV 


e(SP) ,-(sp) 


; ;PICKUP THE MODE 




2375 


01 2062 


1 16667 


00000 1 


0002 1 1 




MOVB 


1 (SP) , S0FILL 


; ; LOAD ZERO FILL SWITCH 




2376 


012070 


1 12667 


000207 






MOVB 


(SP)+, SOMODE+l 


; ; NUMBER OF DIGITS TO TYPE 




2377 


012074 


062716 


000002 






ADD 


#2, (SP) 


; j ADJUST RETURN ADDRESS 




2378 


012100 


000406 








BR 


STYPON 






2379 


012102 


112767 


000001 


000171 


STYPOC: 


MOVB 


#1p S0FILL 


; ; SET THE ZERO FILL SWITCH 




2380 


012110 


112767 


000006 


000165 




MOVB 


#6, SOMODE+l 


; ; SET FOR SIX(6) DIGITS 




2381 


012116 


1 12767 


000005 


000154 


STYPON: 


MOVB 


15, SOCNT 


; ;SET THE ITERATION COUNT 





f 
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DZTACC.NEW BINARY TO OCTAL (ASCII) AND TYPE 



2382 


012124 


010346 






MOV 


P3,-(SP) 


•JSAVE R3 


2383 


012126 


010446 






MOV 


R4,-(SP) 


;SAVE R4 


2384 


012130 


010546 






MOV 


R5,-(SP) 


ISAVE R5 


2385 


012132 


116704 


000145 




MOVB 


$0M0DE+1,R4 


; GET THE NUMBER OF DIGITS TO TYPE 


2386 


012136 


005404 






NEG 


R4 




2387 


012140 


062704 


000006 




ADD 


#6,R4 


.•SUBTRACT IT FOR MAX. ALLOWED 


2388 


012144 


110467 


000132 




MOVB 


R4, SOMODE 


J SAVE IT FOR USE 


2389 


012150 


116704 


000125 




MOVB 


S0FILL,R4 


; GET THE ZERO FILL SWITCH 


2390 


012154 


016605 


000012 




MOV 


12(SP) ,P5 


; PICKUP THE INPUT NUMBER 


2391 


012160 


005003 






CLR 


R3 


• ;CLEAR THE OUTPUT WORD 


2392 


012162 


006105 




is: 


ROL 


R5 


f ROTATE MSB INTO "C" 


2393 


012164 


000404 






BR 


3$ 


;G0 DO MSB 


2394 


012166 


006105 




2$: 


ROL 


R5 


; FORM THIS DIGIT 


2395 


012170 


006105 






ROL 


R5 




2396 


012172 


006105 






ROL 


R5 




2397 


012174 


010503 






MOV 


R5,R3 




2398 


012176 


006103 




3$: 


ROL 


R3 


; GET LSB OF THIS DIGIT 


2399 


012200 


105367 


000076 




DECB 


SOMODE 


; TYPE THIS DIGIT? 


2400 


012204 


100016 






BPL 


7S 


• ; BR IF NO 


2401 


012206 


042703 


177770 




BIC 


#177770, R3 


• ; GET RID OF JUNK 


2402 


012212 


001002 






BNE 


4$ 


; TEST FOR 


2403 


012214 


005704 






TST 


R4 


% SUPPRESS THIS 0? 


2404 


012216 


001403 






BEQ 


5$ 


j BR IF YES 


2405 


012220 


005204 




4$: 


INC 


R4 


jDON'T SUPPRESS ANYMORE 0'S 


2406 


012222 


052703 


000060 




BIS 


#'0,R3 


■ ; MAKE THIS DIGIT ASCII 


2407 


012226 


052703 


000040 


5S: 


BIS 


f ' /R3 


• ; MAKE ASCII IF NOT ALREADY 


2408 


012232 


110367 


000040 




MOVB 


R3,8$ 


■ ;SAVE FOR TYPING 


2409 


012236 


104401 


012276 




TYPE 


,8S 


j ;G0 TYPE THIS DIGIT 


2410 


012242 


105367 


000032 


7S5 


DECB 


SOCNT 


; ;COUNT BY 1 


2411 


012246 


003347 






BGT 


25 


; ;BR IF MORE TO DO 


2412 


012250 


002402 






BLT 


6$ 


■ ; BR IF DONE 


2413 


012252 


005204 






INC 


R4 


^INSURE LAST DIGIT ISN'T A BLANK 


2414 


012254 


000744 






BR 


2S 


;G0 DO THE LAST DIGIT 


2415 


012256 


012605 




6SI 


MOV 


(SP)+,R5 


; RESTORE R5 


2416 


012260 


012604 






MOV 


(SP)+,R4 


j RESTORE R4 


2417 


012262 


012603 






MOV 


(SP)+,R3 


• ; RESTORE R3 


2418 


012264 


016666 


000002 M 


50004 


MOV 


2(SP),4(SP) 


; ;SET THE STACK FOR RETURNING 


2419 


012272 


012616 






MOV 


(SP)+, (SP) 




2420 


012274 


000002 






RTI 




; ; RETURN 


2421 


012276 


000 




8$: 


4 BYTE 





; .'STORAGE FOR ASCII DIGIT 


2422 


012277 


000 






.BYTE 





• ; TERMINATOR FOR TYPE ROUTINE 


2423 


012300 


000 




SOCNT: 


.BYTE 





■ ;OCTAL DIGIT COUNTER 


2424 


012301 


000 




S0FILL: 


.BYTE 





; ZERO FILL SWITCH 


2425 


012302 


000000 




SOMODE: 


.WORD 





■ ; NUMBER OF DIGITS TO TYPE 
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DZTACC.NEW TRAP DECODER 



2426 






2427 






2428 






2429 






2430 






2431 






2432 






2433 






2434 


012304 


010046 


2435 


012306 


016600 


2436 


012312 


005740 


2437 


012314 


1 11000 


2438 


012316 


006300 


2439 


012320 


016000 


2440 


012324 


000200 


2441 






2442 






2443 






2444 






2445 


012326 


011646 


2446 


012330 


016666 


2447 


012336 


000002 


2448 






2449 






2450 






2451 






2452 






2453 






2454 






2455 






2456 


012340 


012326 


2457 


012342 


010760 


2458 


012344 


012102 


2459 


012346 


012056 


2460 


012350 


012116 


2461 






2462 


012352 


01 1250 


2463 






2464 


012354 


011200 


2465 


012356 


01 1462 


2466 


012360 


01 1602 


2467 


012362 


01 1754 


2468 


012364 


006630 


2469 


012366 


006734 



. SBTTL TRAP DECODER 

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
;*GO TO THAT ROUTINE, 



00004 000002 



STRAP: 


MOV 


R0,»(SP) 


JSAVE R0 




MOV 


2CSP),R0 


; GET TRAP ADDRESS 




TST 


»(R0) 


jBACKUP BY 2 




MOVB 


(R0) ,R0 


; GET RIGHT BYTE OF TRAP 




ASL 


R0 


; POSITION FOR INDEXING 




MOV 


STRPADCR0) ,R0 


; INDEX TO TABLE 




RTS 


R0 


jGO TO ROUTINE 


; f THIS 


IS USE 


TO HANDLE THE H GETPRI " MACRO 


STRAP2: 


MOV 


(SP),-(SP) 


JMOVE THE PC DOWN 




MOV 


4(SP) ,2(SP) 


;MOVE THE PSW DOWN 




RTI 




; RESTORE THE PSW 



.SBTTL TRAP TABLE 

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE "TRAP" INSTRUCTION. 



ROUTINE 

. WORD 

$TYPE 

STYPOC 

STYPOS 

STYPON 

SGTSWR 

SCKSWR 
SRDCHP 
SRDLIN 
SRDOCT 



STPAP2 
;CALL=TYPE 
;CALL=TYPOC 
>CALL=TYPOS 
;CALL=TYPON 

;CALL=GTSWR 



TRAP+1 (104401 ) 
TRAP+2(1044025 
TRAP+3(104403) 
TRAP + 4U04404) 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 



TRAP+5(104405) GET SOFT-SWP SETTING 



WAIT. ON. READY 
WAIT. FOR. XFER 



;CALL=CKSWP 
jCALL=RDCHR 
jCALL=RDLIN 

jCALL=RDOCT 



TRAP+6(104406) TEST FOR CHANGE IN SOFT-SWR 
TRAP+7 (104407) TTY TYPEIN CHARACTER ROUTINE 
TRAP+10( 104410) TTY TYPEIN STRING ROUTINE 
TRAP+1 1 ( 10441 1 ) READ AN OCTAL NUMBER FROM TTY 
CALLsWAITREADY TRAP+1 2 ( 10441 2) WAIT ON THE READY BIT TO 

; ;CALL=WAITXFER TPAP+ 13(104413) WAIT ON XFER PEQ. 
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2470 
2471 










, SBTTL 


POWER 


DOWN AND UP ROUTINES 


2472 












2473 










; POWER 


DOWN ROUTINE 




2474 


012370 


012737 


012534 


000024 


SPWRDN: 


MOV 


#$ILLUP,0#PWRVEC 


; ;SET FOR FAST UP 


2475 


012376 


012737 


000340 


000026 




MOV 


#340,3#PWRVEC+2 


;PRIO:7 


2476 


012404 


010046 








MOV 


R0, -CSP) 


JPUSH R0 ON STACK 


2477 


012406 


010146 








MOV 


Ri,-CSP) 


;PUSH Rl ON STACK 


2478 


012410 


010246 








MOV 


R2,»(SP) 


;PUSH R2 ON STACK 


2479 


012412 


010346 








MOV 


R3,-(SP) 


;PUSH R3 ON STACK 


2480 


012414 


010446 








MOV 


R4,-(SP) 


;PUSH R4 ON STACK 


2481 


012416 


010546 








MOV 


P5,»<SP) 


JPUSH P5 ON STACK 


2482 


012420 


017746 


166514 






MOV 


@SWR,»<SP) 


;PUSH iSWR ON STACK 


2483 


012424 


010667 


000110 






MOV 


SPj SSAVR6 


JSAVE SP 


2484 


012430 


012737 


012442 


000024 




MOV 


»SPWRUP,e*PWRVEC 


; ; SET UP VECTOR 


2485 


012436 


000000 








HALT 






2486 
2487 


012440 


000776 








BR 


.-2 


; HANG UP 


2488 












2489 










;POWER 


UP ROUTINE 




2490 


012442 


012737 


012534 


000024 


spwfup: 


MOV 


#$ILLUP,9#PWRVEC 


J J SET FOR FAST DOWN 


2491 


012450 


016706 


000064 






MOV 


SSAVR6 » SP 


; GET SP 


2492 


012454 


005067 


000060 






CLR 


SSAVR6 


; WAIT LOOP FOR THE TTY 


2493 


012460 


005267 


000054 




1$: 


INC 


SSAVR6 


J WAIT FOR THE INC 


2494 


012464 


001375 








BNE 


1$ 


;OF WORD 


2495 


012466 


012677 


166446 






MOV 


(SP)+,gSWR 


J POP STACK INTO ?SWR 


2496 


012472 


012605 








MOV 


(SP)+,R5 


J POP STACK INTO R5 


2497 


012474 


012604 








MOV 


(SP)+,R4 


;POP STACK INTO R4 


2498 


012476 


012603 








MOV 


(SP)+,R3 


;POP STACK INTO R3 


2499 


012500 


012602 








MOV 


(SP)+,R2 


;POP STACK INTO R2 


2500 


012502 


012601 








MOV 


(SP)+,R1 


;POP STACK INTO Rl 


2501 


012504 


012600 








MOV 


(SP)+,R0 


;POP STACK INTO R0 


2502 


012506 


012737 


012370 


000024 




MOV 


#$PWRDN,9#PWRVEC 


; ;SET UP THE POWER DOWN VECTOR 


2503 


012514 


012737 


000340 


000026 




MOV 


#340,S#PWRVEC+2 


;PRIO:7 


2504 


012522 


104401 








TYPE 




REPORT THE POWER FAILURE 


2505 


012524 


012542 






spwrmg: 


.WORD 


$ POWER 


; POWER FAIL MESSAGE POINTER 


2506 


012526 


012716 








MOV 


(PC)+, (SP) 


j RESTART AT PWRST 


2507 


012530 


002172 






SPWRAD; 


.WORD 


PWRST 


; RESTART ADDRESS 


2508 


012532 


000002 








RTI 






2509 


012534 


000000 






SILLUP: 


HALT 




; THE POWER UP SEQUENCE WAS STARTED 


2510 


012536 


000776 








BR 


e »2 


J BEFORE THE POWER DOWN WAS COMPLETE 


2511 


012540 


000000 






SSAVR6: 







JPUT THE SP HERE 


2512 


012542 


005015 


047520 


042527 


SPOWER: 


.ASCIZ 


<15><12>"P0WER" 




2513 


012550 


000122 














251 4 












.EVEN 
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SEQ 0068 



2515 


012552 


042200 


044522 


042526 


MSGDRV: 


.ASCIZ 


<CRLF> "DRIVE (S) ? " 


2516 


§12560 


051450 


037451 


000040 








2517 


01 2566 


005015 


040524 


051503 


MSGASK : 


8 ASCIE 


<15><12>/TACS?/ 


2518 


012574 


000077 












2519 


012576 


042526 


052103 


051 1 17 


MSGVEC S 


.ASCIE 


/VECTOR?/ 


2520 


012604 


000077 












2521 


012606 


051120 


04751 1 


044522 


MSGPRI 5 


.ASCIZ 


/PRIORITY?/ 


2522 


012614 


054524 


000077 










2523 


012620 


040524 


051503 


000075 


MTACS J 


.ASCIZ 


/TACS*/ 


2524 


012626 


052040 


042101 


036502 


MTADB : 


, ASCIE 


/ TADBs/ 


2525 


012634 


000 












2526 


012635 


040 


042526 


052103 


MTAVEC: 


3 ASCIZ 


/ VECTORS/ 


2527 


012642 


051117 


000075 










2528 


012646 


050040 


044522 


051117 


MTAPRI S 


*ASCXZ 


/ PRIORlTYs/ 


2529 


012654 


052111 


036531 


000 








2530 


012661 


015 


047412 


037513 


msgok: 


» ASCIZ 


<15><12>/0K?/ 


2531 


012666 


000 












2532 


012667 


131 


051505 


000200 


myes: 


.ASCIZ 


/YES/<CRLF> 


2533 


012674 


047520 


042527 


020122 


MTUPWR: 


.ASCIZ 


/POWER DOWN TU60/ 


2534 


012702 


047504 


047127 


052040 








2535 


012710 


033125 


000060 










2536 


012714 


047520 


042527 


020122 


MPWRUPS 


.ASCIZ 


/POWER UP TU60/ 


2537 


012722 


050125 


052040 


033125 








2538 


012730 


000060 












2539 


012732 


042522 


047515 


042526 


MOFFLNl 


, ASCIE 


/REMOVE CASSETTE FROM DRIVE UNDER TEST/ 


2540 


012740 


041440 


051501 


042523 








2541 


012746 


052124 


020105 


051106 








2542 


012754 


046517 


042040 


044522 








2543 


012762 


042526 


052440 


042116 








2544 


012770 


051105 


052040 


051505 








2545 


012776 


000124 












2546 


013000 


042522 


046120 


041501 


MTAPE » 


8 ASCIE 


/REPLACE CASSETTE/ 


2547 


013006 


020105 


040503 


051523 








2548 


013014 


052105 


042524 


000 








2549 


013021 


123 


052105 


053440 


HWPTLKl 


.ASCIE 


/SET WRITE LOCK/ 


2550 


013026 


044522 


042524 


046040 








2551 


013034 


041517 


000113 










2552 


013040 


042523 


020124 


051 127 


MLASTS 


. ASCIZ 


/SET WRITE ENABLE/ 


2553 


013046 


052111 


020105 


047105 








2554 


013054 


041101 


042514 


000 








2555 


013061 


123 


040524 


052524 


EM 1 i 


. ASCIZ 


/STATUS PROBLEM / 


2556 


013066 


020123 


051120 


041117 








2557 


013074 


042514 


000115 










2558 


013100 


051042 


040505 


054504 


EM2: 


aASCIE 


/"READY" FAILED TO SET/ 


2559 


013106 


020042 


040506 


046111 








2560 


013114 


042105 


052040 


0201 17 








2561 


013122 


042523 


000124 










2562 


013126 


052042 


040522 


051516 


EM 3 s 


.ASCIZ 


/"TRANSFER REQUEST" FAILED TO SET/ 


2563 


013134 


042506 


020122 


042522 








2564 


013142 


052521 


051505 


021124 








2565 


013150 


043040 


044501 


042514 








2566 


013156 


020104 


047524 


051440 








2567 


013164 


052105 


000 










2568 


013167 


124 


042510 


053440 


EM 41 


„ ASCIZ 


/THE WRONG FLAG SET/ 


2569 


01 3174 


047522 


043516 


043040 








2570 


013202 


040514 


020107 


042523 









f 
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DZTACC.NEW POWER DOWN AND UP ROUTINES 



2571 


013210 


000124 












2572 


013212 


040504 


040524 


050040 


EM5: 


.ASCIZ 


/DATA PROBLEM/ 


2573 


013220 


047522 


046102 


046505 








2574 


013226 


000 












2575 


01 3227 


120 


020103 


020040 


DHl : 


o ASCIZ 


/PC TACS/ 


2576 


013234 


020040 


052040 


041501 








2577 


013242 


000123 












2578 


013244 


041520 


020040 


020040 


DH2: 


. ASCIZ 


/PC TACS WAIT ADDRESS/ 


2579 


013252 


020040 


040524 


051503 








2580 


013260 


020040 


020040 


040527 








2581 


013266 


052111 


040440 


042104 








2582 


013274 


042522 


051523 


000 








2583 


013301 


120 


020103 


020040 


DH5 : 


.ASCIZ 


/PC TACS EXPECT RCV'D/ 


2584 


013306 


020040 


052040 


041501 








2585 


013314 


020123 


020040 


042440 








2586 


013322 


050130 


041505 


020124 








2587 


013330 


051040 


053103 


042047 








2588 


013336 


000 












2589 




013340 






.EVEN 






2590 


013340 


001116 


001162 


000000 


DTI : 


s WORD 


$ERRPC,$REG0,0 


2591 


013346 


001116 


001 162 


001202 


DT2f 


.WORD 


$ERRPC#$REG0,SAVPC,0 


2592 


013354 


000000 












2593 


013356 


0011 16 


001162 


001124 


DT5 S 


. WORD 


SERRPC*$REG0* SGDDAT, $BDDAT,0 


2594 


013364 


001126 


000000 










2595 


013370 


001116 


001206 


000000 


DT20! 1 


e WORD 


SERRPC>TACSL,0 


2596 
















2597 


013376 


001116 


000000 




DT202! 


* WORD 


SERRPC#0 


2598 
















2599 


013402 


040524 


030461 


043040 


EM201: 


e ASCIZ 


"TA1 1 FAILED TO RESPOND" 


2600 


013410 


044501 


042514 


020104 








2601 


013416 


047524 


051040 


051505 








2602 


013424 


047520 


042116 


000 








2603 


013431 


116 


020117 


051104 


EM2028 


9 ASCIZ 


55 NO DRIVE AVAILABLE" 


2604 


013436 


053111 


020105 


053101 








2605 


013444 


044501 


040514 


046102 








2606 


013452 


000105 












2607 


01 3454 


041520 


020040 


020040 


DH20! t 


8 ASCIZ 


/PC TACS/ 


2608 


013462 


020040 


040524 


051503 








2609 


013470 


000 












2610 


013471 


120 


000103 




DH202: 


.ASCIZ 


/PC/ 


2611 




000001 








s END 





0, 
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SEQ 0070 



ASKADR 


007146 


556 


1692* 






ASKDRV 


007036 


553 


1660# 


1683 




ASKKEY 


001232 


395# 


643* 


673 




ASKOUE 


007436 


731 


789 


803 


818 


BEGINX 


001730 


234 


550# 


586 


588 


BEGIN 1 


001326 


231 


469# 






BEGIN2 


001360 


232 


476# 






BEGIN3 


001366 


233 


475 


478* 




BEGIN4 


001374 


480$ 








BGNCMN 


001400 


472 


474 


477 


479 


BIT0 s 


000001 


166* 








BIT00 a 


000001 


156# 


166 


208 


2093 


BIT01 a 


000002 


1558 


165 


207 


2095 


BIT02 = 


000004 


154# 


164 


206 




BIT03 s 


000010 


153# 


163 


205 




BIT04 « 


000020 


152* 


162 


204 




BIT05 » 


000040 


1518 


161 


203 




BIT06 s 


000100 


150* 


160 


202 




BIT07 = 


000200 


149# 


159 


201 


2093 


BIT08 s 


000400 


148* 


158 


200 


1478 


BIT09 s 


001000 


147# 


157 


199 


1486 


BIT1 s 


000002 


165# 








BIT10 s 


002000 


1468 


198 


1534 




BIT1 1 Js 


004000 


145# 


197 


1493 




BIT12 a 


010000 


1448 


196 






BIT13 a 


020000 


143# 


195 


1541 




BIT14 a 


040000 


1 42« 


194 


1464 




BIT15 a 


100000 


141 • 


193 


654 




BIT2 a 


000004 


164* 








BIT3 s 


000010 


163* 








BIT4 s 


000020 


162* 








BITS s 


000040 


1618 








BIT6 s 


000100 


160# 








BII7 a 


000200 


159# 








BIT8 s 


000400 


1588 








BIT9 s 


001000 


157# 








BLKLIM 


010462 


1997* 


2011* 


2018 


2035 


BPTVECs 


000014 


173* 








BSBG s 


000010 


1R6« 


765 


921 


961 


BSFG s 


000006 


1858 


760 


916 


956 


BSFGSB 


010320 


241 


19718 


1972 


1 979 


CHKADR 


001752 


552 


555 


574* 




CHKDPV 


002032 


612# 








CKSWR ■ 


104406 


1463 


1526 


1549 


2464« 


CR » 


000015 


81ff 


2162 


2172 




CPCERRs 


040000 


1 94# 


997 


1089 




CRLF = 


000200 


?.2'i 


538 


2133 


2172 


CURDPV 


001234 


3961 


666* 


667 




DDISP s 


177570 


88* 


364 


509 




DH1 


013227 


417 


2575# 






DH2 


013244 


423 


429 


435 


2579* 


DH201 


013454 


449 


2607# 






DH202 


013471 


454 


26108 






DH5 


013301 


441 


2583* 






DISPLA 


001142 


364# 


509* 


517* 


1507* 


DISPRE 


000174 


228S 


517 







885 
636 



1392 

638 



1021 
1016 



1061 
1056 



1113 
1108 



1153 
1148 



1213 
1208 



1253 
1248 
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SEQ 0071 



DETACC 8 NEW CROSS 


REFERENCE 


TABLE <»'» 


USER SYMBOLS 














DRVKEY 


001224 


393# 


394 


470® 


612 


625 


646 


671 


1661* 


1666 


1680 


DRVPNT 


001230 


394« 


626* 


646* 


657 


672# 


2061 


2068* 








DSWR s 


177570 


87* 


363 


508 
















DTI 


013340 


418 


25908 


















DT2 


013346 


424 


430 


436 


2591# 














DT201 


013370 


450 


2595* 


















DT202 


013376 


455 


2597* 


















DT5 


013356 


442 


2593* 


















EMTVECs 


000030 


176* 


492* 


493* 
















EMI 


013061 


416 


25558 


















EM2 


013100 


422 


2558S 


















EM201 


013402 


448 


2599# 


















EM202 


013431 


453 


26031 


















EM3 


013126 


428 


25621? 


















EM4 


013167 


434 


25688 


















EMS 


013212 


440 


2572* 


















ERROR a 


100000 


193# 




















ERRVECa 


000004 


169* 


506 


507* 


518* 


574* 


580* 


1469 


1470* 


1472* 


1475* 


EXAM 


010654 


613 


617 


622 


2080* 














EXIT 


007136 


1679 


1684* 


















FGAP a 


004000 


197* 


1089 


1189 
















FUNCTIs 


000016 


209# 




















FUNC0 a 


000002 


207S 


209 


















FUNC1 a 


000004 


206« 


209 


















FUNC2 a 


000010 


205* 


209 


















GNS a 




227 


537 


664 


719 


723 


1776 


1784 


2457 


2458 


2459 






2465 


2466 


2467 


2468 


2469 












GO a 


000001 


2088 


303 


306 


325 


328 


685 


702 


704 


745 


750 






770 


775 


780 


837 


845 


856 


865 


869 


892 


989 






1187 


1282 


1284 


1288 


1293 


1305 


1308 


1326 


1328 


1335 






1358 


1360 


1378 


1380 


1397 


1410 


1813 


1816 


1845 


1868 






1933 


1955 


1958 


1974 


2019 


2037 










GTSWP s 


104405 


532 


679 


1989 


2002 


2008 


2462* 










HERE 


001730 


523 


525 


536 


538# 














HGHTIM 


006706 


706 


1603* 


1617* 
















HT s 


00001 1 


79« 


2131 


2172 
















ILBS a 


000020 


204# 


852 


863 


876 


995 


1185 


1286 


1312 


1330 


1341 


INT»ENs 


000100 


202* 




















lOTVECs 


000020 


174# 


490* 


491* 
















ITEMS2 


001306 


446# 




















LEADERS 


020000 


1958 


897 


1089 


1365 


1383 


1818 


1849 


1872 


1904 


1907 






1976 


2098 


















LF a 


000012 


80$ 


2166 


2172 
















LOOP 


007062 


1667# 


1681 


















LOOP1 


000500 


29i# 


292 


















LOOP2 


000600 


301X 


312 


















L00P3 


000700 


323# 


334 


















MANUAL 


002152 


632 


8 40;-; 


















MAXCNT 


006732 


654* 


706* 


707* 


708* 


709* 


1603 


16248 


1631 






MLAST 


013040 


1393 


2552# 


















MOFFLN 


012732 


804 


2539# 


















MPWRUP 


012714 


790 


2536# 


















MSGASK 


012566 


1693 


2517* 


















MSGDRV 


012552 


1660 


25158 


















MSGID 


001702 


526 


538# 


645 
















MSGOK 


012661 


1740 


2530# 



















2460 

755 
991 
1337 
1899 



2462 



2464 



760 765 

1181 1183 

1339 1343 

1902 1927 
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MACY11 
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CROSS REFERENCE 


TABLE «~ 


USER SYMBOLS 










MSGPRI 


012606 


1716 


2521# 














MSGVEC 


012576 


1707 


2519# 














MTACS 


012620 


1728 


2523# 














MTADB 


012626 


1731 


2524# 














MTAPE 


013000 


819 


25461 














MTAPRI 


012646 


1737 


2528# 














MTAVEC 


012635 


1734 


2526« 














MTUPWR 


012674 


732 


2533# 














MWRTLK 


013021 


886 


2549# 














MYES 


012667 


1749 


2532# 














NEXT 


007U6 


1670 


1674 


1678# 












NOTA 


007074 


1668 


167 1 # 














NOTB 


007106 


1672 


1675# 














NOTLGL 


007130 




1676 


1682# 


1685 










NXTDRV 


010610 


1811 


1843 


1866 


1897 


1925 


1953 


2058# 




OFFLINs 


001000 


199* 


737 


795 


809 


810 


824 


1089 


1400 


OK 


002164 


641 


643# 














PATTRN 


010464 


1998* 


2004* 


2012# 


2025 


2036 








PIRQ a 


177772 


86$ 
















PIRQVEs 


000240 


1 80# 
















PR0 a 


000000 


















PRi = 


000040 


104# 
















PR2 = 


000100 


105# 
















PR3 a 


000140 


1 06 # 
















PR4 = 


000200 


107 # 
















PR5 s 


000240 


108$ 
















PR6 = 


000300 


109# 
















PR7 s 


000340 


110* 
















PS s 


177776 


83$ 


84 


649* 












PSW a 


177776 


84# 
















PWRST 


002172 


645# 


2507 














PWRVECa 


000024 


1 75# 


496* 


497* 


2474* 


2475* 


2484® 


2490* 


2502* 


RDBLK 


010530 


1871 


1930 


2035# 












RDCHR s 


104407 


1741 


1766 


2285 


2465# 










RDLIN = 


104410 


1 662 


2326 


24668 












RDOCT s 


104411 


1 694 


1708 


1717 


2467* 










RDSUB 


007756 


237 


18611 


1865 


1873 










READ a 


000004 


1 84# 


328 


755 


911 


951 


991 


101 1 


1051 






1284 


1 308 


1328 


1339 


1343 


2037 






READY a 


000040 


203 # 


304 


311 


326 


333 


686 


1607 


1637 






1956 


2021 


2039 


2085 










RESVECs 


000010 


1 70# 
















REWINDa 


000016 


1 89# 


303 


325 


685 


702 


780 


837 


892 






1128 


1 168 


1181 


1228 


1268 


1282 


1305 


1326 






1813 


1845 


1868 


1899 


1927 


1955 






RGPBLK 


010140 


239 


1 920# 


1924 


1932 


1936 








SAVPC 


001202 


384# 


1604* 


1605* 


1621 


1632* 


1633* 


1649 


2591 


SAVPS 


001204 


385 # 


1606* 


1620 


1634* 


1648 








SETBUF 


010352 


18 37 


1891 


1985# 












SFBG s 


000014 


1 88 # 


775 


931 


971 


1031 


1071 


1123 


1163 


SFFG s 


000012 


187# 


770 


926 


966 


1026 


1066 


1118 


1158 


SFFGSB 


010234 


240 


1948* 


1952 


1963 










STACK s 


001100 


74# 


488 


1806 


1838 


1861 


1892 


1920 


1948 


START 


002204 


644 


647* 


1444 












STKLMTs 


177774 


85# 
















SWR 


001 140 


291 


309 


363# 


486 


508* 


510 


5 1 6» 


530 



1103 
1814 



936 
1337 



1223 

1187 



1143 
1846 



976 
1358 



1263 
1218 



1183 
1869 



989 
1378 



1288 

1258 



1478 



1203 
1900 



1036 
1397 



1933 
1958 



1243 
1928 



1076 
1410 
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1493 


1534 


1541 


1546 








2095 


2182 


2219* 


2482 


SWREG 




000176 


229# 


516 


530 


677 


SW0 




000001 


138* 








SW00 




000001 


128# 


138 






SW01 




000002 


127* 


137 






SW02 




000004 


126# 


136 






SW03 




000010 


125* 


135 






SW04 




000020 


124* 


134 






SW05 




000040 


123* 


133 






SW06 




000100 


122* 


132 






SW07 




000200 


121* 


131 






SW08 




000400 


120* 


130 






SW09 




001000 


119* 


129 






SWi 




000002 


137# 








SW10 




002000 


118# 








swii 




004000 


117# 


1787 






SWI 2 


a 


010000 


116* 








SW13 




020000 


115* 








SW14 




040000 


114# 








SW15 




100000 


113* 








SW2 


a 


000004 


136# 








SW3 


s 


000010 


135# 








SW4 




000020 


134# 








SW5 




000040 


133# 








SW6 


s 


000100 


132# 








SW7 


s 


000200 


131f 








SW8 




000400 


130* 








SW9 




001000 


129# 








TACSH 




001210 


388# 


1702* 


1703* 




TACSL 




001206 


387# 
2595 


576 


650 


1699* 


TADBH 




001214 


390# 


1705* 


1706* 




TADBL 




001212 


389# 


651 


1701* 


1705 


TAPRIO 


001222 


392# 


1727* 


1738 




TAVEC 




001216 


391# 


473 


647* 


648* 


TBITVEs 


000014 


171* 








TDRV 




002274 


659 


661* 






TIMERRs 


002000 


198# 


1089 






TKVEC 




000060 


178S 








TPVEC 


s 


000064 


179* 








TRAPVEs 


000034 


177# 


494» 


495# 




TRTVECs 


000014 


172# 








TR,REQs 


000200 


201* 








TST1 




002422 


683 


696# 






TST10 




003224 


806 


821 


825 


830# 


TST11 




003422 


881 # 








TST12 




003772 


884 


984# 






TST13 




004332 


986 


10841 






TST14 




004644 


1086 


1176* 






TST15 




005206 


1178 


12768 






TST16 




005362 


1279 


1321* 






TST17 




005500 


1323 


1351 # 






TST2 




002502 


699 


7131 






TST20 




005564 


1354 


1366 


1371* 




TST21 




005642 


1374 


1384 


1389* 





1550 

2495* 

1987 



1732 
1713* 



1808 
1715* 



1840 
1735 



1839 
1863 
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SEQ 0074 



TST22 


005716 


888 


1401 


1406* 






















TST3 


002646 


716 


728# 
























TST4 


002714 


738 


743# 
























TST5 


003062 


744 


782 


787# 






















TST6 


003120 


734 


796 


801# 






















TST7 


003164 


811 


816# 
























TYPE a 


104401 


526 


645 


662 


667 


668 


717 


721 


1434 


1536 


1544 


1566 


1575 


1577 






1580 


1582 


1586 


1594 


1660 


1682 


1693 


1707 


1716 


1728 


1731 


1734 


1737 






1740 


1747 


1749 


1763 


1764 


1774 


1779 


1782 


1788 


2136 


2193 


2194 


2197 






2210 


2221 


2240 


2289 


2292 


2296 


2409 


2457# 


2504 










TYPERR 


006512 


1543 


1566# 
























TYPOC s 


104402 


1591 


1730 


1733 


1736 


1739 


2196 


2458* 














TYPON s 


104404 


2460# 


























TYPOS s 


104403 


2459* 


























UNIT s 


000400 


200* 


660 


2064 


2084 




















WAITPEs 


104412 


703 


705 


746 


751 


756 


761 


766 


771 


776 


794 


838 


853 


864 






866 


877 


893 


990 


996 


1182 


1186 


1188 


1283 


1287 


1289 


1292 


1301 






1306 


1313 


1315 


1327 


1331 


1334 


1336 


1338 


1342 


1347 


1357 


1359 


1361 






1377 


1379 


1381 


1398 


1411 


1817 


1903 


1934 


1959 


1975 


2028 


2049 


2468S 


WAITXFs 


104413 


846 
1344 


851 
2020 


857 
2038 


862 
2469# 


870 


875 


992 


994 


1184 


1285 


1311 


1329 


1340 


WAIT.F 


006734 


1629# 


2469 
























WAIT.O 


006630 


160i# 


2468 
























WAIT1 


006660 


1607# 


1615 


1618 






















WAIT2 


006700 


1602* 


16148 
























WAIT3 


006714 


1608 


1612 


1620# 






















WAIT4 


006676 


1610 


1 6 1 3 # 
























WFG = 


000000 


182# 

1360 


704 

1399 


745 
1816 


865 
1902 


901 


941 


1001 


1041 


1093 


1133 


1193 


1233 


1335 


WFGSUB 


007604 


235 


1806* 


1810 


1821 




















WGBLOP 


010042 


1892* 


1896 


1910 






















WGPBLK 


010036 


238 


1 891 * 
























WLOOP 


007674 


1838* 


1842 


1852 






















WRITE s 


000002 


1838 
1238 


306 
1293 


750 
1 380 


845 
2019 


856 


869 


906 


946 


1006 


1046 


1098 


1138 


1198 


WRTBLK 


010466 


1848 


1906 


2018# 






















WRTLOC= 


010000 


196f* 


902 


907 


912 


917 


922 


927 


932 


937 


1042 


1047 


1052 


1057 






1062 


1067 


1072 


1077 


1094 


1099 


1104 


1109 


1114 


1119 


1124 


1129 


1194 






1 199 


1204 


1209 


1214 


1219 


1224 


1229 


1400 


2091 










WRTSUB 


007670 


236 


1 8378 
























SAUTOB 


001 134 


360* 


534* 


2190 


2311 




















SBDADR 


001S22 


3558 


























SBDDAT 


001126 


3578 


1530* 


2593 






















SBELL 


001 172 


379* 


1536 


1562 






















SCHARC 


011174 


2138* 


2148* 


2155 


2164* 


2169# 


















SCKSWP 


01 1200 


2182* 


2464 
























SCMTAG 


001 100 


3438 


483 


484 


492 


498 


499 


500 














SCMi s 


000002 


375# 


376* 


377# 






















SCM2 x 


000004 


375* 


376* 


377* 






















SCMJ s 


000002 


373# 


375 
























SCNTLG 


01 1725 


2193 


2306# 
























SCNTLU 


011720 


2210 


2305* 
























SCRLF 


001177 


381# 
2305 


668 


1544 


1562 


1566 


1577 


1582 


1586 


1763 


1788 


2137 


2172 


2221 


SDOAGN 


006024 


1430 


1436 


1442# 






















SENDAD 


006014 


524 


589 


639 


14388 


1557 



















TA11 MANUAL INTERVENTION TEST 


MAINDEC- 


11-DZTAC 


-C 




DZTACC.NEW 


CROSS 


REFERENCE 


TABLE — 


USER SYMBOLS 




$ ENDCT 


005774 




498 


1432# 








SENDMG 


006033 




1434 


1446* 








SENULL 


006030 




14458 










SEOP 


005740 




1422* 










SEOPCT 


005766 




498* 


14298 


1433 






SERFLG 


001103 




346* 


1453 


1482 


1484 


1490* 


SERMAX 


001115 




3528 


501* 


1484 


1506* 


1511 


SERROP 


006320 




492 


1525S 








SERRPC 


001116 




353* 


1538* 


1539* 


1540 


1562 


SERRTB 


001236 




41 1 # 


1573 








SERTTL 


001 112 




350# 


1537* 


1562 






SESCAP 


001170 




378# 


500* 


744* 


832* 


884* 








1553 


1555 


1562 






SFILLC 


001 156 




371 # 


2141 


2172 






SFILLS 


001 155 




370# 


2172 








SGDADR 


001120 




354* 










$ GDDAT 


001 124 




356* 


1529* 


2593 






SGET42 


006004 




1435# 










SGTSWR 


011250 




2194* 


2462 








SHD ~ 


000000 




11 










SHIOCT 


012054 




2343* 


2348* 








SICNT 


001104 




3478 


1497* 


1498 


1500* 


1510 


SILLUP 


012534 




2474 


2490 


2509# 






SINTAG 


001 135 




361* 


2222 


2311 






SITEMB 


001114 




351SJ 


1540* 


1562 


1568 




SLF 


001200 




382# 


1562 


2172 


2296 


2305 


SI.PADR 


001 106 




348# 


502* 


730* 


788* 


802* 








1391* 


1488* 


1503* 


1508 


1510 


SLPERR 


001 1 10 




349* 


503* 


1488 


1504* 


1510 


SMAIL s 




u 


520 


530 


1503 


1546 


2125 


SMNEW 


01 1743 




2197 


2309* 








SMSWR 


011732 




2194 


2307* 








SMXCNT 


006316 




1501 


1510# 








S NULL 


001 154 




369* 


2143 


2172 






SNWTSTs 


000001 




693S 


710# 


725# 


740* 


784# 








13188 


1 348* 


13688 


1386* 


1403§ 


SOCNT 


012300 




2381* 


2410* 


2423# 






SOMODE 


012302 




2376* 


2380* 


2385 


2388* 


2399* 


SOVER 


006302 




1465 


1481 


1489 


1499 


1507* 


SPASS 


001 100 




344# 


652 


698 


715 


1426* 


SPOWER 


012542 




2505 


25128 








SPWRAD 


012530 




2507# 










SPWRDN 


012370 




496 


2474# 


2502 






SPWRMG 


012524 




2505 « 










SPWRUP 


012442 




2484 


2490* 








SOUES 


001 176 




380# 


1562 


1682 


1747 


1779 


SRDCHP 


011462 




2253* 


2465 








$RDDEC= 




u 


2468 










SRDLIN 


01 1602 




2281# 


2466 








SRDOCT 


011754 




2321 « 


2467 








SPDSZ s 


000010 




2274* 










SREGAD 


001 160 




373# 










SREG0 


001 162 




375# 


1527* 


2590 


2591 


2593 


SREGl 


001164 




3768 


1528* 








SRTNAD 


006026 




1444$ 










SR2A s 




U 


2468 
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1531* 1562 



986* 1086* 1178* 1279* 1323* 1354* 1 374* 1505* 



985* 1085* 1177* 1278* 



1810* 1842* 



1896* 1924* 1952* 1972* 
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SEQ 0076 



jy Oft ¥ i\Ej>& 


U 


2468 


























8SAVR6 


01 2540 


2483# 


2491 


2492* 


2493* 


251 1 # 


















$ SCOPE 


006046 


490 


1 462# 
























8SETUP& 


000137 


4691 


489 


490 


492 


494 


496 


498 


499 


500 


502 


524 


527 


1424 






1463 


1526 


1549 


1557 


2177 


2311 
















$ 5TUP s 


177777 


469 8 


























8SVLAD 


006254 


1473 


1502# 
























SSHR » 


1 67 400 


I # 


1 1 


62 


63 


64 


65 


66 


67 


68 


377 


378 


379 


499 






500 


502 


503 


697 


714 


729 


744 


788 


802 


817 


831 


882 


985 






1085 


1177 


1277 


1322 


1352 


1372 


1 390 


1 407 


1417 


1425 


1437 


1443 


1 445 






J AQ9 








1458 




1476 


1478 


1479 


1482 


1483 


1484 


i c!l 








1 ao> 


i «?eiA 




1510 


1517 


1518 


1519 


1520 


1521 


1534 


1541 


1546 






1550 


1562 


1 TOT 

i Ikq 


2508 


















































6TIMES 


00 1166 






fiQ7# 


I«1 


799® 


831® 


_ 

2 


1277 


1322 


1352 


1372 


1 390 








A9S 


1 491 * 


Aoa 

j: 
























001 1 46 




2175 


2 1 80 






99*1 


















VV 114 4 


3658 


2175 


2184 


2200 


2224* 


















8 


WW £ 3 










699 


Ti a 


9 1 A« 






729# 


_ 


7 38 


_ 








ISO 


"JQA 


•TBflfi 




"7QB 




BOlfi 


aii 


B 1 5 
















878 




DBA 


888 


Qfl 1 






« i « 






1 1fifl 






1 IT* 


1178 


1 27 J 






_ 

1318 


* 


1323 


1 AQ 

1348 


1352" 


1 354 


1366 


1368 






|J * 


91 If 




1386 




1401 




14078 












STPB 








i] if 






















$ TPFLG 


001 157 




9 1 % G 


























10*7 H3B 


367S 


2159 


2172 






















$ TRAP 


01 2 304 


494 


2434$ 
























STRAP2 


012326 


2445# 


2456 
























STRP 




2449 # 


2458# 


..... 


946638 


2461 # 


2462 


2463# 


2464 


2465$ 


2466 9 


2467 $ 


2468$ 


24699 






?470# 






























2439 


2456# 


























001 102 


345# 


655* 


1424* 


1453 


1 ABO 


1502* 


1507 


1511 


1533 


1562 








$ TTYI N 






2283 


2300 


2304S 




















e TYPRNs 






























(STVPf) (i 
9 11 rUS" 


# u 




























g TYPE 






2449 


2457 






















S T YPEC 






W 11 




«... 


21 fi0! 


9996 
















$ TYPE X 


ai 51 at 


2165 




91 "las 

2170 






















8TYP0C 




2379 


























S TYPON 








2460 






















S TYPOS 


01 2056 


2 3 7 4 # 


245 
























IXTSTR 


006060 


1467# 


























SSGET4& 


000000 


1437* 


























S0FILL 


012301 


2375* 


2379* 


2389 


2424# 




















S40CATs 




1464 


1543 
























« s 


013474 


223# 


227? 


289# 


299* 


321 # 


3428 


383 


487 


502 


503 


538# 


665# 


1445 






1448 


1510 


1511 


1562 


15978 


17778 


1785* 


2172 


2175 


23041 


2305 


2311 


2486 






2510 


2589* 

























ERRORS DETECTED { 

DEFAULT GLOBALS GENERATED! 
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DZTACC.NEW CROSS REFERENCE TABLE USER SYMBOLS 

RUN-TIME5 44 29 2 SECONDS 
RUNTIME PATIOj 171/77 = 2.2 
CORE USEDf 25K (49 PAGES) 
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